Differences
This shows you the differences between two versions of the page.
Both sides previous revisionPrevious revisionNext revision | Previous revisionLast revisionBoth sides next revision | ||
tutorials:intermediate:performing_plans [2019/02/20 12:55] – [Performing Activities] cpo | tutorials:intermediate:performing_plans [2022/03/30 21:26] – [Plan goals] schimpf | ||
---|---|---|---|
Line 15: | Line 15: | ||
<code lisp> | <code lisp> | ||
- | CL-USER> (cpl: | + | CL-USER> (cpl: |
- | | + | |
+ | | ||
</ | </ | ||
Line 23: | Line 24: | ||
<code lisp> | <code lisp> | ||
CL-USER> (prolog: | CL-USER> (prolog: | ||
- | (prolog:< | + | (prolog:< |
- | | + | (desig: |
- | | + | (desig: |
</ | </ | ||
Line 36: | Line 37: | ||
| | ||
hmmm... nomnomnom... PIZZA | hmmm... nomnomnom... PIZZA | ||
+ | NIL | ||
+ | #<A ACTION | ||
+ | (TO EAT) | ||
+ | (YUMMY PIZZA)> | ||
</ | </ | ||
Line 62: | Line 67: | ||
CL-USER> (defparameter *pizza-eaten-p* nil) | CL-USER> (defparameter *pizza-eaten-p* nil) | ||
*PIZZA-EATEN-P* | *PIZZA-EATEN-P* | ||
- | CL-USER> (cpl: | + | CL-USER> (cpl: |
- | | + | |
+ | | ||
(setf *pizza-eaten-p* t)) | (setf *pizza-eaten-p* t)) | ||
- | STYLE-WARNING: | + | ; in: CRAM-LANGUAGE-IMPLEMENTATION: |
+ | ; (TYPE (OR STRING NULL) ?YUMMY) | ||
+ | ; | ||
+ | ; caught | ||
+ | ; | ||
+ | ; | ||
+ | ; compilation unit finished | ||
+ | ; | ||
+ | ; ? | ||
+ | ; | ||
EAT | EAT | ||
CL-USER> (prolog: | CL-USER> (prolog: |