Attempt to throw to the nonexistent tag DUPLICATABLE-CODE-P ??? <http://abcl.org/trac/ticket/444>

[alanruttenberg]

(ext::macroexpand-all '  (loop 
    for a = (sort foo 'string-lessp :key #'(lambda(x) x ))
    for b = nil then 1
))

;; 
;; Error compiling /Users/lori/repos/slime/swank/abcl.lisp:
;;   Attempt to throw to the nonexistent tag DUPLICATABLE-CODE-P.

[Ferada]

C.f. https://trac.clozure.com/ccl/ticket/1085. The fix mentioned there works, so do that?

[easye]

Patch applied as https://github.com/armedbear/abcl/commit/8ee53991f69b7556d50e296a4b9c4a978218c171

@alanruttenberg Please test and close.

[easye]

http://abcl.org/trac/ticket/444