Changeset 10992


Ignore:
Timestamp:
02/15/06 11:51:28 (15 years ago)
Author:
piso
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/dump-form.lisp

    r9850 r10992  
    11;;; dump-form.lisp
    22;;;
    3 ;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: dump-form.lisp,v 1.4 2005-08-13 17:34:25 piso Exp $
     3;;; Copyright (C) 2004-2006 Peter Graves
     4;;; $Id: dump-form.lisp,v 1.5 2006-02-15 11:51:28 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    2424(declaim (ftype (function (cons stream) t) dump-cons))
    2525(defun dump-cons (object stream)
    26   (cond ((and (eq (car object) 'QUOTE) (null (cddr object)))
     26  (cond ((and (eq (car object) 'QUOTE) (= (length object) 2))
    2727         (%stream-write-char #\' stream)
    2828         (dump-object (%cadr object) stream))
Note: See TracChangeset for help on using the changeset viewer.