search

armedbear / abcl

Armed Bear Common Lisp <git+https://github.com/armedbear/abcl/> <--> <svn+https://abcl.org/svn> Bridge
https://abcl.org#rdfs:seeAlso<https://gitlab.common-lisp.net/abcl/abcl>
Other
290 stars 29 forks source link

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

Open alanruttenberg opened 7 years ago

alanruttenberg commented 7 years ago 
(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 commented 7 years ago

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

easye commented 7 years ago

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

@alanruttenberg Please test and close.

easye commented 7 years ago

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