/[slime]/slime/swank-cmucl.lisp
ViewVC logotype

Diff of /slime/swank-cmucl.lisp

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

revision 1.75 by heller, Wed Mar 3 20:55:38 2004 UTC revision 1.76 by heller, Thu Mar 4 22:15:40 2004 UTC
# Line 1227  LRA  =  ~X~%" (mapcar #'fixnum Line 1227  LRA  =  ~X~%" (mapcar #'fixnum
1227    (with-output-to-string (*standard-output*)    (with-output-to-string (*standard-output*)
1228      (let* ((lowtag (kernel:get-lowtag object))      (let* ((lowtag (kernel:get-lowtag object))
1229             (lowtag-symbol (find lowtag +lowtag-symbols+ :key #'symbol-value)))             (lowtag-symbol (find lowtag +lowtag-symbols+ :key #'symbol-value)))
1230        (format t "[lowtag: ~A" lowtag-symbol)        (format t "lowtag: ~A" lowtag-symbol)
1231        (cond ((member lowtag (list vm:other-pointer-type        (when (member lowtag (list vm:other-pointer-type
1232                                    vm:function-pointer-type                                   vm:function-pointer-type
1233                                    vm:other-immediate-0-type                                   vm:other-immediate-0-type
1234                                    vm:other-immediate-1-type                                   vm:other-immediate-1-type
1235                                    ))                                   ))
1236               (let* ((type (kernel:get-type object))          (let* ((type (kernel:get-type object))
1237                      (type-symbol (find type +header-type-symbols+                 (type-symbol (find type +header-type-symbols+
1238                                         :key #'symbol-value)))                                    :key #'symbol-value)))
1239                 (format t ", type: ~A]" type-symbol)))            (format t ", type: ~A" type-symbol))))))
             (t (format t "]"))))))  
1240    
1241  (defimplementation inspected-parts (o)  (defimplementation inspected-parts (o)
1242    (cond ((di::indirect-value-cell-p o)    (cond ((di::indirect-value-cell-p o)

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

  ViewVC Help
Powered by ViewVC 1.1.5