[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: compiling ucpop
- To: clisp-list@ma2s2.mathematik.uni-karlsruhe.de
- Subject: Re: compiling ucpop
- From: Pierpaolo Bernardi <bernardp@CLI.DI.Unipi.IT>
- Date: Thu, 13 Feb 1997 18:19:55 +0100
- In-reply-to: <199702112028.OAA09078@phobos.mathcs.carleton.edu> (message from Roger Kirchner on Tue, 11 Feb 97 21:50:50 +0100)
- Organization: Centro di Calcolo - Dipartimento di Informatica di Pisa - Italy
Can anyone understand why I might get the error
ERROR in function GET-OPERS-TEST-TEMPL in lines 263..275 :
RETURN-FROM block TEST-TEMPL is impossible from here.
when compiling
;;; quickly get those operators in the templates that match a condition
(defun get-opers (condition &aux (ret nil))
(labels ((test-templ (templ)
(dolist (e (p-step-add templ) nil)
(dolist (a (effect-add e))
(when (and (eql (car a) (car condition))
(or (not (eq (car a) :not))
(eql (caadr a) (caadr condition))))
(return-from test-templ t))))))
(dolist (templ *templates* ret)
(when (test-templ templ)
(push templ ret)))))
Blocks around functions established with LABELS and FLET are a cltl2
addition. In Clisp you should use CL instead of LISP, or use
CL:LABELS instead of LABELS.
Maybe starting Clisp with '-p CL-USER' fixes this (or maybe not).
Cheers, P.