0.8.3.92:

[sbcl.git] / contrib / sb-grovel / def-to-lisp.lisp

diff --git a/contrib/sb-grovel/def-to-lisp.lisp b/contrib/sb-grovel/def-to-lisp.lisp
index fe83f9c..3b2cba1 100644 (file)
--- a/contrib/sb-grovel/def-to-lisp.lisp
+++ b/contrib/sb-grovel/def-to-lisp.lisp
@@ -19,7 +19,7 @@
                 c-name c-el-name)
         ;; length
        (if distrust-length
-           (format stream "printf(\"nil\");")
+           (format stream "printf(\"|CL|:|NIL|\");")
            (format stream "{ ~A t;printf(\"%d\",(sizeof t.~A));}~%"
                    c-name c-el-name))
         (format stream "printf(\")\\n\");~%")))))