From 3b6dd501e6cc025c144720e5000d594d10c2276c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sat, 14 Mar 2020 10:32:31 +0100 Subject: [PATCH] make-load-form: cons: initialize car in init form This way we do not need to worry about cons recursion in make forms. --- src/clos/print.lsp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/clos/print.lsp b/src/clos/print.lsp index d4f16fcd8..182286826 100644 --- a/src/clos/print.lsp +++ b/src/clos/print.lsp @@ -128,9 +128,11 @@ 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) - ,(maybe-quote (cdr 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)) (make-form `(make-hash-table