X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Fexpressions.lisp;h=3a2532aafbb18e8c8e8d7ef502583deb42ab50a9;hb=6ae958418dd080abc577c24b5e66af9783441b3f;hp=bcf1383189ff83a8c3ef47ce4a83ef4a674b6462;hpb=33a8b2208de67e24b346804400b2ed003770e620;p=clsql.git

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