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