- Timestamp:
- Apr 8, 2008, 2:52:04 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lib/format.lisp
r8172 r9046 1477 1477 (write-char char stream)) 1478 1478 ((and (< code 32) atsign) 1479 (if (%str-member(setq char (code-char (logxor code 64)))1480 "@CGHIJKLM[\\]^_")1479 (setq char (code-char (logxor code 64))) 1480 (if (or colon (%str-member char "@CGHIJKLM[\\]^_")) 1481 1481 (princ name stream) 1482 1482 (progn
Note: See TracChangeset
for help on using the changeset viewer.