Print returns object itself

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index f9535ea..215f1b1 100644 (file)
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -510,7 +510,8 @@
     x)
 
   (defun print (x)
     x)
 
   (defun print (x)

-    (write-line (print-to-string x))))
+    (write-line (print-to-string x))
+    x))

 
 
 ;;;; Reader
 
 
 ;;;; Reader