/[gcl]/gcl/pcl/gcl_pcl_impl_low.lisp
ViewVC logotype

Diff of /gcl/pcl/gcl_pcl_impl_low.lisp

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

revision 1.1 by camm, Sat May 7 02:52:30 2005 UTC revision 1.2 by camm, Sat Jul 23 08:55:59 2005 UTC
# Line 280  object set_cclosure (result_cc,value_cc, Line 280  object set_cclosure (result_cc,value_cc,
280        (let (#+akcl(s-data nil))        (let (#+akcl(s-data nil))
281          (and (symbolp type)          (and (symbolp type)
282                (setq s-data (get type 'si::s-data))                (setq s-data (get type 'si::s-data))
283                              (null  (si::s-data-type s-data))))))
              (null  (si::s-data-type s-data)  
                    )))))  
284    
285    
286  (defun structure-type-included-type-name (type)  (defun structure-type-included-type-name (type)

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

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