mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-06 02:40:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

make-load-form: cons: initialize car in init form

Browse source 
This way we do not need to worry about cons recursion in make forms.
This commit is contained in:
Daniel Kochmański 2020-03-14 10:32:31 +01:00
parent dcdb53f29e
commit 3b6dd501e6
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/clos/print.lsp
View file

@ -128,8 +128,10 @@ printer and we should rather use MAKE-LOAD-FORM."
x))))
(and init-forms `(progn ,@init-forms)))))
(cons
(values `(cons ,(maybe-quote (car object)) nil)
(and (rest object) `(rplacd ,(maybe-quote object)
(values `(cons nil nil)
`(progn (rplaca ,(maybe-quote object)
,(maybe-quote (car object)))
(rplacd ,(maybe-quote object)
,(maybe-quote (cdr object))))))
(hash-table
(let* ((content (ext:hash-table-content object))