/[mcclim]/mcclim/sheets.lisp
ViewVC logotype

Diff of /mcclim/sheets.lisp

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

revision 1.21 by moore, Fri Nov 30 23:01:08 2001 UTC revision 1.22 by mikemac, Sat Dec 1 00:05:19 2001 UTC
# Line 148  sheet-supports-only-one-child error to b Line 148  sheet-supports-only-one-child error to b
148  (defgeneric sheetp (x))  (defgeneric sheetp (x))
149    
150  (defmethod sheetp ((x sheet))  (defmethod sheetp ((x sheet))
151      (declare (ignorable x))
152    t)    t)
153    
154  (defmethod sheetp (x)  (defmethod sheetp (x)
155      (declare (ignorable x))
156    nil)    nil)
157    
158  (defclass basic-sheet (sheet)  (defclass basic-sheet (sheet)

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

  ViewVC Help
Powered by ViewVC 1.1.5