/[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.4 by camm, Sat Jul 23 08:51:08 2005 UTC revision 1.5 by camm, Wed Sep 7 02:46:18 2005 UTC
# Line 244  Line 244 
244                                 (car l) (nth i cons)))))                                 (car l) (nth i cons)))))
245    
246  (defun inspect-string (string)  (defun inspect-string (string)
247    (format t (if (simple-string-p string) "~S - simple string" "~S - string")    (format t "~S - string";(if (simple-string-p string) "~S - simple string" "~S - string")
248            string)            string)
249    (inspect-print  "dimension:  ~D"(array-dimension string 0))    (inspect-print  "dimension:  ~D"(array-dimension string 0))
250    (when (array-has-fill-pointer-p string)    (when (array-has-fill-pointer-p string)
# Line 258  Line 258 
258                                        (char string i)))))                                        (char string i)))))
259    
260  (defun inspect-vector (vector)  (defun inspect-vector (vector)
261    (format t (if (simple-vector-p vector) "~S - simple vector" "~S - vector")    (format t "~S - vector";(if (simple-vector-p vector) "~S - simple vector" "~S - vector")
262            vector)            vector)
263    (inspect-print  "dimension:  ~D" (array-dimension vector 0))    (inspect-print  "dimension:  ~D" (array-dimension vector 0))
264    (when (array-has-fill-pointer-p vector)    (when (array-has-fill-pointer-p vector)

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

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