Commit 10db6f16 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Removed inline declaration for macrolet… (thanks to irc://makomo@irc.freenode.org/#clschool).

parent 5cec7e21
......@@ -1453,7 +1453,6 @@ NOTE: This version avoids calling FUN twice with the same argument.
(follows '()))
(macrolet ((enter (item list) `(pushnew ,item ,list :test test))
(enter-all (items list) `(setf ,list (delete-duplicates (append ,items ,list) :test test))))
(declare (inline enter enter-all))
(setf current (coerce set 'list))
(loop
:do (loop ;; current -> fun -> follows
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment