/[cells]/triple-cells/observer.lisp
ViewVC logotype

Diff of /triple-cells/observer.lisp

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

revision 1.2 by ktilton, Sat Feb 23 01:22:11 2008 UTC revision 1.3 by ktilton, Fri Apr 11 09:24:42 2008 UTC
# Line 57  Line 57 
57    
58  ;;; ----------------------------------------------------  ;;; ----------------------------------------------------
59    
60  (defvar *3c-observers*)  
61    
62  (defun (setf 3c-observer) (function c-node)  (defun (setf 3c-observer) (function c-node)
63    (assert (functionp function) () "3c-observer setf not rule: ~a ~a" (type-of function) function)    (assert (functionp function) () "3c-observer setf not rule: ~a ~a" (type-of function) function)

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

  ViewVC Help
Powered by ViewVC 1.1.5