r455 - trunk/tools/cold

[rswindells at common-lisp.net]

Author: rswindells
Date: Sun Jun 12 19:04:30 2016
New Revision: 455

Log:
Output characters if found in input.

Modified:
   trunk/tools/cold/coldut.lisp

Modified: trunk/tools/cold/coldut.lisp
==============================================================================
--- trunk/tools/cold/coldut.lisp	Sun Jun 12 18:47:19 2016	(r454)
+++ trunk/tools/cold/coldut.lisp	Sun Jun 12 19:04:30 2016	(r455)
@@ -640,8 +640,8 @@
 	       ((floatp s-exp) (store-flonum 'sym:working-storage-area s-exp))
 	       ((and (<= s-exp big-fixnum) (>= s-exp little-fixnum)) (vfix s-exp))
 	       (t (store-bignum 'sym:working-storage-area s-exp))))
-;	((characterp s-exp)
-;	 (vmake-pointer sym:dtp-character (char-int s-exp)))
+	((characterp s-exp)
+	 (vmake-pointer sym:dtp-character (char-int s-exp)))
 	((symbolp s-exp) (qintern s-exp))
 	((stringp s-exp) (store-string 'sym:p-n-string s-exp))
 	((atom s-exp) (error "~S unknown type" s-exp))