print-object for sql-sized-type
Mon Nov 2 06:26:43 PST 2009 attila.lendvai@gmail.com
* print-object for sql-sized-type
Warning: CRC errors found. These are probably harmless but should be repaired.
See 'darcs gzcrcs --help' for more information.
diff -rN -u old-cl-rdbms/syntax/type.lisp new-cl-rdbms/syntax/type.lisp
--- old-cl-rdbms/syntax/type.lisp 2014-08-01 17:23:44.000000000 -0700
+++ new-cl-rdbms/syntax/type.lisp 2014-08-01 17:23:44.000000000 -0700
@@ -61,6 +61,9 @@
nil
:type (or null (integer 0)))))
+(def print-object sql-sized-type
+ (princ (size-of -self-)))
+
(define-syntax-node sql-string-type (sql-sized-type)
())