Changeset 6713

Timestamp:

Jun 12, 2007, 1:01:13 PM (17 years ago)

Author:

Gary Byers

Message:

remove-slot-initargs: a little better, but should be able to recognize
the case where there are no initargs and not cons a fresh list each
time.

File:

• branches/ide-1.0/ccl/examples/objc-clos.lisp (modified) (1 diff)

branches/ide-1.0/ccl/examples/objc-clos.lisp

@@ -708 +708 @@
 (defun remove-slot-initargs (class initargs)
   (let* ((slot-initargs (class-slot-initargs class))) ; cache this, maybe
+    (collect ((new-initargs))
     (loop for l = initargs then (cddr l)
-          when (null l) do (return-from remove-slot-initargs new-initargs)
+          when (null l) do (return-from remove-slot-initargs (new-initargs))
           unless (member (first l)  slot-initargs :test #'eq)
-            append (list (first l) (second l))  into new-initargs)))
+          do
+          (new-initargs (car l))
+          (new-initargs (cadr l))))))
 
 (defun create-foreign-instance-slot-vector (class)