/[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.1.1.1 by camm, Mon Jun 17 05:25:27 2002 UTC revision 1.2 by camm, Sat Oct 5 18:34:15 2002 UTC
# Line 272  object set_cclosure (result_cc,value_cc, Line 272  object set_cclosure (result_cc,value_cc,
272  (defun structure-slotd-accessor-symbol (slotd)  (defun structure-slotd-accessor-symbol (slotd)
273    (second slotd))    (second slotd))
274    
275  (defun structure-slotd-writer-function (slotd)  ;(defun structure-slotd-writer-function (slotd)
276    ;  (third slotd))
277    
278    (defun structure-slotd-reader-function (slotd)
279    (third slotd))    (third slotd))
280    
281    (defun structure-slotd-writer-function (slotd)
282      (fourth slotd))
283    
284  (defun renew-sys-files()  (defun renew-sys-files()
285    ;; packages:    ;; packages:
286    (compiler::get-packages "sys-package.lisp")    (compiler::get-packages "sys-package.lisp")

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

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