[armedbear-cvs] r14354 - branches/1.1.x/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Mon Jan 14 02:01:01 2013
New Revision: 14354

Log:
Backport r14352 | vvoutilainen | 2013-01-13 21:05:50 +0100 (Sun, 13 Jan 2013) | 1 line.

Fix ticket 290, a compilation error of a quoted list.

Modified:
   branches/1.1.x/src/org/armedbear/lisp/dump-form.lisp

Modified: branches/1.1.x/src/org/armedbear/lisp/dump-form.lisp
==============================================================================
--- branches/1.1.x/src/org/armedbear/lisp/dump-form.lisp	Mon Jan 14 01:58:29 2013	(r14353)
+++ branches/1.1.x/src/org/armedbear/lisp/dump-form.lisp	Mon Jan 14 02:01:01 2013	(r14354)
@@ -125,7 +125,7 @@
 
 (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))
         (t