Changeset 10992

Timestamp:

02/15/06 11:51:28 (18 years ago)

Author:

piso

Message:

DUMP-CONS: fix bug reported by Carlos Ungil: (print '(quote))

File:

• trunk/j/src/org/armedbear/lisp/dump-form.lisp (modified) (2 diffs)

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

@@ -1 +1 @@
 ;;; dump-form.lisp
 ;;;
-;;; Copyright (C) 2004-2005 Peter Graves
-;;; $Id: dump-form.lisp,v 1.4 2005-08-13 17:34:25 piso Exp $
+;;; Copyright (C) 2004-2006 Peter Graves
+;;; $Id: dump-form.lisp,v 1.5 2006-02-15 11:51:28 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -24 +24 @@
 (declaim (ftype (function (cons stream) t) dump-cons))
 (defun dump-cons (object stream)
-  (cond ((and (eq (car object) 'QUOTE) (null (cddr object)))
+  (cond ((and (eq (car object) 'QUOTE) (= (length object) 2))
          (%stream-write-char #\' stream)
          (dump-object (%cadr object) stream))