Changeset 14112
- Timestamp:
- 08/18/12 08:17:42 (8 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/pprint-dispatch.lisp
r11391 r14112 57 57 58 58 (in-package #:xp) 59 60 (require "PPRINT") 59 61 60 62 (defvar *ipd* nil ;see initialization at end of file. … … 336 338 337 339 (setf *print-pprint-dispatch* (copy-pprint-dispatch nil)) 340 341 (provide "PPRINT-DISPATCH") -
trunk/abcl/src/org/armedbear/lisp/pprint.lisp
r13408 r14112 59 59 60 60 ;must do the following in common lisps not supporting *print-shared* 61 62 (require "PRINT") 61 63 62 64 (defvar *print-shared* nil) -
trunk/abcl/src/org/armedbear/lisp/print-object.lisp
r14084 r14112 122 122 (format stream "The variable ~S is unbound." (cell-error-name x)))) 123 123 124 (provide 'print-object)124 (provide "PRINT-OBJECT") -
trunk/abcl/src/org/armedbear/lisp/print.lisp
r13446 r14112 315 315 (%print-object object stream))) 316 316 object) 317 318 (provide "PRINT")
Note: See TracChangeset
for help on using the changeset viewer.