Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revisionPrevious revision
Next revisionBoth sides next revision
tutorials:intermediate:performing_plans [2022/03/30 21:18] – [Basic functionality] schimpftutorials:intermediate:performing_plans [2022/03/30 21:19] – [Plan goals] schimpf
Line 63: Line 63:
 CL-USER> (defparameter *pizza-eaten-p* nil) CL-USER> (defparameter *pizza-eaten-p* nil)
 *PIZZA-EATEN-P* *PIZZA-EATEN-P*
-CL-USER> (cpl:def-cram-function eat (stuff) +CL-USER> (cpl:def-cram-function eat (&key ((:yummy ?yummy)) &allow-other-keys) 
-           (format t "hmmm... nomnomnom... ~a~%" stuff)+           (declare (type (or string null) ?yummy)) 
 +           (format t "hmmm... nomnomnom... ~a~%" ?yummy)
            (setf *pizza-eaten-p* t))            (setf *pizza-eaten-p* t))
 STYLE-WARNING: redefining COMMON-LISP-USER::EAT in DEFUN STYLE-WARNING: redefining COMMON-LISP-USER::EAT in DEFUN