Changeset 14352

Timestamp:

01/13/13 20:05:50 (11 years ago)

Author:

vvoutilainen

Message:

Fix ticket 290, a compilation error of a quoted list

File:

• trunk/abcl/src/org/armedbear/lisp/dump-form.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/dump-form.lisp

@@ -126 +126 @@
 (declaim (ftype (function (cons stream) t) dump-cons))
 (defun dump-cons (object stream)
-  (cond ((and (eq (car object) 'QUOTE) (= (length object) 2))
+  (cond ((and (eq (car object) 'QUOTE) (proper-list-of-length-p object 2))
          (%stream-write-char #\' stream)
          (dump-object (%cadr object) stream))