/[gcl]/gcl/lsp/gcl_describe.lsp
ViewVC logotype

Diff of /gcl/lsp/gcl_describe.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5 by camm, Wed Sep 7 02:46:18 2005 UTC revision 1.6 by camm, Sun Sep 18 02:08:49 2005 UTC
# Line 31  Line 31 
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)
# Line 192  Line 192 
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))
# Line 322  Line 322 
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)
# Line 335  Line 336 
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)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26