X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fexpressions.lisp;h=3a2532aafbb18e8c8e8d7ef502583deb42ab50a9;hp=bcf1383189ff83a8c3ef47ce4a83ef4a674b6462;hb=44c87a075cbe29141d90dc49c501f382a6d81fbe;hpb=2d7fb2dcce0f94745672b4f2aff6be39d610a063

diff --git a/sql/expressions.lisp b/sql/expressions.lisp
index bcf1383..3a2532a 100644
--- a/sql/expressions.lisp
+++ b/sql/expressions.lisp
@@ -67,7 +67,8 @@
 (defmethod print-object ((self %sql-expression) stream)
   (print-unreadable-object
    (self stream :type t)
-   (write-string (sql-output self) stream)))
+   (write-string (sql-output self) stream))
+  self)
 
 ;; For straight up strings
 
@@ -91,7 +92,8 @@
 (defmethod print-object ((ident sql) stream)
   (format stream "#<~S \"~A\">"
           (type-of ident)
-          (sql-output ident nil)))
+          (sql-output ident nil))
+  ident)
 
 ;; For SQL Identifiers of generic type