Hi,
compiling km-2-0-51 with clisp results in the following warnings:
;; Compiling file /home/sds/km-2-0-51.lisp ...
WARNING in PROCESS-KM1-RESULT in lines 1236..1260 :
keyword arguments to function PROCESS-KM1-RESULT should occur
pairwise: (:FAIL-MODE FAIL-MODE :TARGET TARGET :HANDLER-PATTERN :PID
PID)
WARNING in RAISE-PARTICIPANT-1 in lines 15499..15511 :
keyword arguments to function GET-EXPLANATION-DATA should occur
pairwise: (SITUATION)
[GET-EXPLANATION-DATA was defined in lines 11772..11775]
;; Wrote file /home/sds/km-2-0-51.fas
these warnings point two 2 bugs, fixed in the following patch:
diff -u -b -w -i -B /home/sds/km-2-0-51.lisp.old /home/sds/
km-2-0-51.lisp
--- /home/sds/km-2-0-51.lisp.old 2006-12-14 12:18:08.000000000 -0500
+++ /home/sds/km-2-0-51.lisp 2007-01-31 12:39:54.000286000 -0500
@@ -1256,7 +1256,7 @@
(km1 kmexpr kmexpr-with-comments :fail-mode fail-mode :target
target :pid pid :rewritep rewritep))
((eq users-response 'fail) ; resets answer to be NIL [doesn't
destroy cached non-nil answers though!]
(increment-trace-depth) ; put *depth* back to where it was
- (process-km1-result nil kmexpr kmexpr-with-comments :fail-mode
fail-mode :target target :handler-pattern :pid pid))
+ (process-km1-result nil kmexpr kmexpr-with-comments :fail-mode
fail-mode :target target :handler-pattern handler-pattern :pid pid))
(t answer))))
;;; Temp function
@@ -15505,7 +15505,7 @@
;;; Raise explanations
(put-explanation-data participant (remove-duplicates
(my-mapcan #'(lambda (situation)
- (get-explanation-data participant situation))
+ (get-explanation-data participant :situation situation))
(all-situations))
:test #'equal)
:situation *global-situation*))
Diff finished. Wed Jan 31 12:40:12 2007
Sam.
