clim 2 lisp compiler error

• To: buff@cc.gatech.edu
• Subject: clim 2 lisp compiler error
• From: Scott McKay <swm@harlequin.com>
• Date: Mon, 23 May 94 16:21:16 EDT
• Cc: clim@BBN.COM, SYMBUGS:@harlequin.com:;
• In-Reply-To: Richard Billington's message of Wed, 18 May 1994 16:35-0400 <19940518203539.1.BUFF@sartre.gatech.edu>

   Date: Wed, 18 May 1994 16:35-0400
   From: Richard Billington <buff@cc.gatech.edu>
   Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
			    (2 0 (NIL 0) (:SWISS :BOLD NIL) "HL12B")
			    (3 0 (NIL 0) (:FIX :ROMAN :TINY) "TINY")
			    (4 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
   Fonts: CPTFONT, CPTFONTCB, HL12B, TINY, CPTFONTI

   Compiling the following file gives the error at the end of this message.
   It is a DUMP-INSTANCE error - just compiling the forms doesn't produce any
   error message.

   My work around is to isolate the define-presentation-type for text-mediaobject
   into a "read only" file. What worries me (i've not tried this work around yet)
   is the #<CLOS:STANDARD-CLASS HO::MEDIAOBJECT (improper)> object - why am I
   getting an "improper" object?

   This same code has compiled and run fine under about 5 different CLIM 1.1
   implementations.

I have no idea what to suggest.

   ----------------------------------cut here------------------------------------
   ;;; -*- Mode: LISP; Syntax: Common-lisp; Package: HYPEROBJECT; Base: 10 -*-

   (defvar *aspects* (text animation))

   (defun aspectp (putative-aspect)
     (member putative-aspect *aspects*))


   ;;;; MediaObject Class

   (defclass mediaobject ()
     ())


   ;;;; MediaObject Presentation Type

   (define-presentation-type mediaobject (media)
     :options (self extent))

   (define-presentation-method presentation-typep (object (type mediaobject))
     (and (typep object 'mediaobject)
	  (aspectp media)))

   (define-presentation-method presentation-subtypep ((type mediaobject) supertype)
     (let ((media (with-presentation-type-parameters (mediaobject type) media))
	   (super-media (with-presentation-type-parameters (mediaobject supertype) media)))
       (values 
	 (eq media super-media)
	 t)))


   ;;;; Text MediaObject Class


   (defclass text-mediaobject (mediaobject) ())


   ;;;; Text MediaObject Presentation Type

   (define-presentation-type text-mediaobject ()
     :options (self extent)
     :inherit-from '(mediaobject text))

• clim 2 lisp compiler error
• From: Richard Billington <buff@cc.gatech.edu>

• Prev: Hardcopy of Output History
• Next: frame-top-level-process
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)