/[gcl]/gcl/pcl/impl/gcl/gcl-low.lisp
ViewVC logotype

Diff of /gcl/pcl/impl/gcl/gcl-low.lisp

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

revision 1.2 by camm, Sat Oct 5 18:34:15 2002 UTC revision 1.3 by camm, Fri Jan 3 19:16:44 2003 UTC
# Line 228  object set_cclosure (result_cc,value_cc, Line 228  object set_cclosure (result_cc,value_cc,
228    
229  (defun structure-type-included-type-name (type)  (defun structure-type-included-type-name (type)
230    (or (car (gethash type *structure-table*))    (or (car (gethash type *structure-table*))
231        (si::s-data-included (get type 'si::s-data))        (let ((includes (si::s-data-includes (get type 'si::s-data))))
232        ))          (when includes
233              (si::s-data-name includes)))))
234    
235  (defun structure-type-internal-slotds (type)  (defun structure-type-internal-slotds (type)
236     (si::s-data-slot-descriptions (get type 'si::s-data))     (si::s-data-slot-descriptions (get type 'si::s-data))

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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