31 |
(in-package 'system) |
(in-package 'system) |
32 |
|
|
33 |
|
|
34 |
(proclaim '(optimize (safety 2) (space 3))) |
;(proclaim '(optimize (safety 2) (space 3))) |
35 |
|
|
36 |
|
|
37 |
(defvar *inspect-level* 0) |
(defvar *inspect-level* 0) |
192 |
(defun inspect-character (character) |
(defun inspect-character (character) |
193 |
(format t |
(format t |
194 |
(cond ((standard-char-p character) "~S - standard character") |
(cond ((standard-char-p character) "~S - standard character") |
195 |
((string-char-p character) "~S - string character") |
((characterp character) "~S - character") |
196 |
(t "~S - character")) |
(t "~S - character")) |
197 |
character) |
character) |
198 |
(inspect-print "code: #x~X" (char-code character)) |
(inspect-print "code: #x~X" (char-code character)) |
322 |
(*print-level* nil) |
(*print-level* nil) |
323 |
(*print-length* nil)) |
(*print-length* nil)) |
324 |
; "The lisp function DESCRIBE." |
; "The lisp function DESCRIBE." |
325 |
|
(declare (optimize (safety 1))) |
326 |
(terpri) |
(terpri) |
327 |
(catch 'quit-inspect (inspect-object object)) |
(catch 'quit-inspect (inspect-object object)) |
328 |
(terpri) |
(terpri) |
336 |
(*print-level* 3) |
(*print-level* 3) |
337 |
(*print-length* 3)) |
(*print-length* 3)) |
338 |
; "The lisp function INSPECT." |
; "The lisp function INSPECT." |
339 |
|
(declare (optimize (safety 1))) |
340 |
(read-line) |
(read-line) |
341 |
(princ "Type ? and a newline for help.") |
(princ "Type ? and a newline for help.") |
342 |
(terpri) |
(terpri) |