CLIM mail archive
[Prev][Next][Index][Thread]

Re: Command parser problem

Thanks for the patches!  (I haven't yet tried them but of course I'll let you
know if there are problems.)

    Date: Thu, 18 Oct 90 10:17 PDT
    From: William M. York <York@CHUCK-JONES.west.dialnet.ila.com>

	Date: Wed, 17 Oct 90 13:41 PDT
	From: TYSON@sunset.ai.sri.com (Mabry Tyson)

	...

	Now a moderate problem:  In Gnuemacs with Allegro running under it, I
	get an error when I try to compile the DEFINE-PRESENTATION-TYPE SENTENCE
	below by itself (ie, in a file buffer) but Allegro compiles it fine when
	it compiles the file it is in.  I don't know if that is some problem
	related to CLIM, but ...

    Can you provide a description of the error message?  Thanks.

Here's the (pretty-printed) error message I get when I try to compile
the following code within gnuemacs (for Allegro).  If you aren't getting
this, then I can check on what our Gnu may be doing differently for a
DEFINE-PRESENTATION-TYPE.  (It works ok with DEFUNs and such but blew up
on this and another presentation-type.)

(clim:define-presentation-type sentence (&key multiline)
  :printer
  ((sentence stream &key acceptably)
   (when acceptably
     (cerror nil "Print the sentence anyway"
	     "Can't print a sentence so you get the EQ sentence back"))
   (format stream "~A" sentence))
  :parser ((stream &key default)
	   (declare (ignore default))
	   (read-a-sentence stream multiline))
  )

Error: Illegal syntax for function:
(EXCL::.LEXICAL-CLOSURE.
  (LAMBDA (TYPE STREAM &KEY DEFAULT)
    (DECLARE (IGNORE DEFAULT))
    (BLOCK #:SENTENCE-PARSER-133
      (WITH-PRESENTATION-TYPE-ARGUMENTS (SENTENCE TYPE)
					(READ-A-SENTENCE STREAM MULTILINE))))
  NIL
  ((CLIM-UTILS::GET-COMPILE-TIME-LOCAL-PROPERTY-1
     EXCL::MACRO
     LAMBDA
     (EXCL::**MACROARG** EXCL::..ENVIRONMENT..)
     (DECLARE (EXCL:IGNORE-IF-UNUSED EXCL::..ENVIRONMENT.. EXCL::**MACROARG**))
     (BLOCK CLIM-UTILS::GET-COMPILE-TIME-LOCAL-PROPERTY-1
       (PROGN
	 (EXCL::MACRO-ARGUMENT-CHECK
	   '0 '0
	   'CLIM-UTILS::GET-COMPILE-TIME-LOCAL-PROPERTY-1 EXCL::**MACROARG**)
	 (LET* NIL
	   '(CLIM-INTERNALS::*PT-ARGLIST-BEING-COMPILED*
	      (&KEY MULTILINE)
	      CLIM-INTERNALS::*PT-TYPE-BEING-COMPILED* SENTENCE)))))
   (CLIM-UTILS::GET-COMPILE-TIME-LOCAL-PROPERTY-1
     EXCL::MACRO
     LAMBDA
     (EXCL::**MACROARG** EXCL::..ENVIRONMENT..)
     (DECLARE (EXCL:IGNORE-IF-UNUSED EXCL::..ENVIRONMENT.. EXCL::**MACROARG**))
     (BLOCK CLIM-UTILS::GET-COMPILE-TIME-LOCAL-PROPERTY-1
       (PROGN
	 (EXCL::MACRO-ARGUMENT-CHECK
	   '0 '0
	   'CLIM-UTILS::GET-COMPILE-TIME-LOCAL-PROPERTY-1 EXCL::**MACROARG**)
	 (LET* NIL
	   '(CLIM-INTERNALS::*PT-TYPE-BEING-COMPILED* SENTENCE))))))
  NIL
  NIL)

0,,
References:
Main Index | Thread Index