/[gcl]/gcl/ansi-tests/rt.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/rt.lsp

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

revision 1.12 by pfdietz, Sat Jul 12 13:46:01 2003 UTC revision 1.13 by pfdietz, Sun Jul 27 03:47:37 2003 UTC
# Line 357  Line 357 
357       (let ((note (make-note :name ',name       (let ((note (make-note :name ',name
358                              :contents ',contents                              :contents ',contents
359                              :disabled ',disabled)))                              :disabled ',disabled)))
360         (setf (gethash *notes* (note-name note)) note)         (setf (gethash (note-name note) *notes*) note)
361         note)))         note)))
362    
363  (defun disable-note (n)  (defun disable-note (n)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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