Ticket #290: dump-cons.diff
File dump-cons.diff, 512 bytes (added by , 11 years ago) |
---|
-
dump-form.lisp
125 125 126 126 (declaim (ftype (function (cons stream) t) dump-cons)) 127 127 (defun dump-cons (object stream) 128 (cond ((and (eq (car object) 'QUOTE) ( = (length object)2))128 (cond ((and (eq (car object) 'QUOTE) (proper-list-of-length-p object 2)) 129 129 (%stream-write-char #\' stream) 130 130 (dump-object (%cadr object) stream)) 131 131 (t