Changeset 248

Timestamp:

Jan 9, 2004, 1:36:05 PM (21 years ago)

Author:

Gary Byers

Message:

Another typo in BUTLAST.

File:

• trunk/ccl/lib/lists.lisp (modified) (1 diff)

trunk/ccl/lib/lists.lisp

@@ -170 +170 @@
              (head (cons nil nil))
              (tail head))
-        (declare (fixnum count) (list head tail) (dynamic-extent head))
+        (declare (fixnum count) (cons head tail) (dynamic-extent head))
         ;; Return a list of the first COUNT elements of list
         (dotimes (i count (cdr head))
-          (setq tail (rplacd tail (cons (pop list) nil))))))))
+          (setq tail (cdr (rplacd tail (cons (pop list) nil)))))))))