Parent Directory | Revision Log | 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) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |