0.9.7.34:
[sbcl.git] / src / compiler / dump.lisp
index 1ad330c..24cee41 100644 (file)
   (let ((code (sb!xc:char-code char)))
     (cond
       ((< code 256)
-  (dump-fop 'fop-short-character file)
+       (dump-fop 'fop-short-character file)
        (dump-byte code file))
       (t
        (dump-fop 'fop-character file)