[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: compiling ucpop

>    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.

Thank you _very_ much.  The cl:labels did it.  The version of clisp I
have does start in COMMON-LISP-USER.  But ucpop loads into USER.