From: David Vazquez <davazp@gmail.com>
Date: Tue, 8 Jan 2013 02:21:14 +0000 (+0000)
Subject: Print returns object itself
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a935b8e044c7f01e28d7b75b6aef5ba2cb3e0322;p=jscl.git

Print returns object itself
---

diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index f9535ea..215f1b1 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -510,7 +510,8 @@
     x)
 
   (defun print (x)
-    (write-line (print-to-string x))))
+    (write-line (print-to-string x))
+    x))
 
 
 ;;;; Reader