CLIM mail archive
clim 2 lisp compiler error

To: clim@BBN.COM, ;@SYMBUGS
Subject: clim 2 lisp compiler error
From: Richard Billington <buff@cc.gatech.edu>
Date: Wed, 18 May 1994 16:35-0400
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.

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

(defvar 1*aspects* 0'(text animation))

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


;;;;2 MediaObject Class

0(defclass 1mediaobject 0()
  ())


;;;;2 MediaObject Presentation Type

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

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

(define-presentation-method 1presentation-subtypep 0((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)))


;;;;2 Text MediaObject Class


0(defclass 1text-mediaobject 0(mediaobject) ())


;;;;2 Text MediaObject Presentation Type

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

----------------------------------cut here------------------------------------

3In Symbolics MacIvory model 3 Lisp Compiler in Genera 8.3, Logical Pathnames Translation Files NEWEST, GATech Genera 12.1, NFS Server 435.0,
Room Creator and Retriever 10.0, Loeffler's Electric Lisp Zmacs Mode 12.1, Gatech Tmp 4.0, Remote Functions 6.0, TeX Stuff 7.0, TeX-DVI 428.0,
Penn Windows 7.0, Experimental Mscroll 4.0, Experimental UPenn-Misc 9.0, Basic World Load Setup 19, CLIM 66.3, Genera CLIM 66.0, CLX CLIM 66.0,
PostScript CLIM 66.1, CLIM Demo 66.1, CLIM Documentation 66.0, Ivory Revision 4A, FEP 328, FEP0:>I328-loaders.flod(24), FEP0:>I328-info.flod(24),
FEP0:>I328-debug.flod(24), FEP0:>I328-lisp.flod(25), FEP0:>I328-KERNEL.FEP(44), Boot ROM version 320, Device PROM version 325, Genera application 5.6,
MacIvory SCSI Manager Server 4.3.1, Toolbox Servers 4.2, MacIvory & RPC library 6.3.1, MacIvory life support 4.3.3FC2, Macintosh System Software 7.0,
1152x814 Screen with Genera fonts, Machine serial number 30356, Macintosh II, Apple Extended Keyboard II,
world booted from FEP0:>Gatech-Genera-8-3-CLIM-2-1-inc.ilod.1 on Symbolics MacIvory model 3 #30356 (Sartre):



1Error: No applicable method for CLOS:MAKE-LOAD-FORM with arguments 
       (#<CLOS:STANDARD-CLASS HO::MEDIAOBJECT (improper) 21012754061>)
0While in the function SI:DUMP-INSTANCE  SI:DUMP-OBJECT  SI:DUMP-I-COMPILED-FUNCTION

The condition signalled was CONDITIONS:SIMPLE-ERROR

1SI:DUMP-INSTANCE0  (P.C. = 24)
   Arg 0 (SI:INSTANCE): #<CLOS:STANDARD-CLASS HO::MEDIAOBJECT (improper) 21012754061>
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-OBJECT0  (P.C. = 326)
   Arg 0 (SI:OBJECT): #<CLOS:STANDARD-CLASS HO::MEDIAOBJECT (improper) 21012754061>
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-I-COMPILED-FUNCTION0  (P.C. = 455)
   Arg 0 (FUNCTION): #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662>
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-OBJECT0  (P.C. = 242)
   Arg 0 (SI:OBJECT): #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662>
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-SHARED-LIST0  (P.C. = 122)
   Arg 0 (LIST): (CLOS-INTERNALS::DEFMETHOD-INTERNAL (QUOTE CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD) (QUOTE (#:TYPE-CLASS #:PARAMETERS #:OPTIONS #:TYPE #:FUNCTION)) (SI:%LIST-N 5 (SI:%LIST-2 (QUOTE EQL) (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>)) NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL (QUOTE (CLOS-INTERNALS::NO-NEXT-METHOD-INFORMATION T)))
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-LIST0  (P.C. = 42)
   Arg 0 (LIST): (CLOS-INTERNALS::DEFMETHOD-INTERNAL (QUOTE CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD) (QUOTE (#:TYPE-CLASS #:PARAMETERS #:OPTIONS #:TYPE #:FUNCTION)) (SI:%LIST-N 5 (SI:%LIST-2 (QUOTE EQL) (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>)) NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL (QUOTE (CLOS-INTERNALS::NO-NEXT-METHOD-INFORMATION T)))
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-OBJECT0  (P.C. = 222)
   Arg 0 (SI:OBJECT): (CLOS-INTERNALS::DEFMETHOD-INTERNAL (QUOTE CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD) (QUOTE (#:TYPE-CLASS #:PARAMETERS #:OPTIONS #:TYPE #:FUNCTION)) (SI:%LIST-N 5 (SI:%LIST-2 (QUOTE EQL) (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>)) NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL (QUOTE (CLOS-INTERNALS::NO-NEXT-METHOD-INFORMATION T)))
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-SHARED-LIST0  (P.C. = 122)
   Arg 0 (LIST): ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) NIL (QUOTE (HO::SELF HO::EXTENT)) (QUOTE HO::MEDIAOBJECT) "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL (QUOTE (QUOTE #)) NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL (QUOTE CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD) (QUOTE (#:TYPE-CLASS #:PARAMETERS #:OPTIONS #:TYPE #:FUNCTION)) (SI:%LIST-N 5 (SI:%LIST-2 # #) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>)) NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL (QUOTE (CLOS-INTERNALS::NO-NEXT-METHOD-INFORMATION T))))
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-LIST0  (P.C. = 42)
   Arg 0 (LIST): ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) NIL (QUOTE (HO::SELF HO::EXTENT)) (QUOTE HO::MEDIAOBJECT) "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL (QUOTE (QUOTE #)) NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL (QUOTE CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD) (QUOTE (#:TYPE-CLASS #:PARAMETERS #:OPTIONS #:TYPE #:FUNCTION)) (SI:%LIST-N 5 (SI:%LIST-2 # #) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>)) NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL (QUOTE (CLOS-INTERNALS::NO-NEXT-METHOD-INFORMATION T))))
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-OBJECT0  (P.C. = 222)
   Arg 0 (SI:OBJECT): ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) NIL (QUOTE (HO::SELF HO::EXTENT)) (QUOTE HO::MEDIAOBJECT) "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL (QUOTE (QUOTE #)) NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL (QUOTE CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD) (QUOTE (#:TYPE-CLASS #:PARAMETERS #:OPTIONS #:TYPE #:FUNCTION)) (SI:%LIST-N 5 (SI:%LIST-2 # #) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>) (CDR #<LOCATIVE 20133702725>)) NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL (QUOTE (CLOS-INTERNALS::NO-NEXT-METHOD-INFORMATION T))))
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-SHARED-LIST0  (P.C. = 122)
   Arg 0 (LIST): (QUOTE ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) NIL (QUOTE #) (QUOTE HO::MEDIAOBJECT) "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL (QUOTE #) NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL (QUOTE CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD) (QUOTE #) (SI:%LIST-N 5 # # # # #) NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL (QUOTE #))))
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-LIST0  (P.C. = 42)
   Arg 0 (LIST): (QUOTE ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) NIL (QUOTE #) (QUOTE HO::MEDIAOBJECT) "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL (QUOTE #) NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL (QUOTE CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD) (QUOTE #) (SI:%LIST-N 5 # # # # #) NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL (QUOTE #))))
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-OBJECT0  (P.C. = 222)
   Arg 0 (SI:OBJECT): (QUOTE ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) NIL (QUOTE #) (QUOTE HO::MEDIAOBJECT) "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL (QUOTE #) NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL (QUOTE CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD) (QUOTE #) (SI:%LIST-N 5 # # # # #) NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL (QUOTE #))))
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-SHARED-LIST0  (P.C. = 122)
   Arg 0 (LIST): (SYS:LOAD-MULTIPLE-DEFINITION (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE CLIM:DEFINE-PRESENTATION-TYPE) (QUOTE ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE # NIL # # "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL # NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL # # # NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL #))) NIL)
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-LIST0  (P.C. = 42)
   Arg 0 (LIST): (SYS:LOAD-MULTIPLE-DEFINITION (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE CLIM:DEFINE-PRESENTATION-TYPE) (QUOTE ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE # NIL # # "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL # NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL # # # NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL #))) NIL)
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-OBJECT0  (P.C. = 222)
   Arg 0 (SI:OBJECT): (SYS:LOAD-MULTIPLE-DEFINITION (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE CLIM:DEFINE-PRESENTATION-TYPE) (QUOTE ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE # NIL # # "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL # NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL # # # NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 1152662> NIL #))) NIL)
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 1067671>

1SI:DUMP-FORM-TO-EVAL0  (P.C. = 44)
   Arg 0 (SYS:FORM): (SYS:LOAD-MULTIPLE-DEFINITION (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE CLIM:DEFINE-PRESENTATION-TYPE) (QUOTE ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE # NIL # # "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL # NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL # # # NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 110141164> NIL #))) NIL)
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 110141126>

1(:INTERNAL COMPILER:COMPILE-TO-FILE 2 :DUMP-FORM)0  (P.C. = 22)
   Arg 0 (SI:**DEFSELECT-OP**): :DUMP-FORM
   Arg 1 (SYS:FORM): (SYS:LOAD-MULTIPLE-DEFINITION (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE CLIM:DEFINE-PRESENTATION-TYPE) (QUOTE ((CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE # NIL # # "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object." NIL NIL # NIL) (CLOS-INTERNALS::DEFMETHOD-INTERNAL # # # NIL #<Compiled function (CLOS:METHOD CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES-METHOD ((EQL (CLIM:FIND-PRESENTATION-TYPE-CLASS #)) T T T T)) (Not the current definition) 110141164> NIL #))) NIL)
   Arg 2 (COMPILER:ENVIRONMENT): (NIL NIL NIL NIL (((FUTURE-COMMON-LISP:COMPILE-FILE))))

1COMPILER:COMPILE-TO-FILE0  (P.C. = 106)
   Arg 0 (SI:OPERATION): :DUMP-FORM
   Rest Arg (SI:SELECT-METHOD-ARGS): ((NIL NIL NIL NIL ((#))))

1(:PROPERTY SYS:DTP-SYMBOL SI:INTERPRETER-FUNCTION)0  (P.C. = 12)
   Arg 0 (FUNCTION): COMPILER:COMPILE-TO-FILE
   Rest Arg: (:DUMP-FORM (SYS:LOAD-MULTIPLE-DEFINITION (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE CLIM:DEFINE-PRESENTATION-TYPE) (QUOTE (# #)) NIL) (NIL NIL NIL NIL ((#))))

1COMPILER:COMPILE-FROM-STREAM-10  (P.C. = 326)
   Arg 0 (SYS:FORM): (SYS:MULTIPLE-DEFINITION HO::TEXT-MEDIAOBJECT CLIM:DEFINE-PRESENTATION-TYPE (CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE NIL) (QUOTE (HO::SELF HO::EXTENT)) (QUOTE HO::MEDIAOBJECT) (QUOTE "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object.") (QUOTE NIL) (QUOTE NIL) (QUOTE (QUOTE #)) (QUOTE NIL)) (CLIM-INTERNALS::DEFINE-PRESENTATION-METHOD-WITHOUT-MASSAGING CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES (#:PARAMETERS #:OPTIONS (#:TYPE HO::TEXT-MEDIAOBJECT) #:FUNCTION) #:PARAMETERS #:OPTIONS (FUNCALL #:FUNCTION (QUOTE HO::TEXT-MEDIAOBJECT) #:TYPE) (LET (#) (FUNCALL #:FUNCTION # TYPE)) (FUNCALL #:FUNCTION (QUOTE #<CLOS:FORWARD-REFERENCED-CLASS CLOS:STANDARD-OBJECT (improper) 21012754051>) (QUOTE #<CLOS:FORWARD-REFERENCED-CLASS CLOS:STANDARD-OBJECT (improper) 21012754051>)) NIL) (QUOTE HO::TEXT-MEDIAOBJECT))
   Arg 1 (COMPILER:COMPILE-TIME-TOO): NIL
   Arg 2 (COMPILER:ENVIRONMENT): (NIL NIL NIL NIL (((FUTURE-COMMON-LISP:COMPILE-FILE))))

1(:INTERNAL COMPILER:COMPILE-FROM-STREAM-1 1 COMPILER:PROCESS-BODY)0  (P.C. = 12)
   Arg 0 (COMPILER:BODY): ((EVAL-WHEN (COMPILE) (CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE NIL) (QUOTE #) (QUOTE HO::MEDIAOBJECT) (QUOTE "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object.") (QUOTE NIL) (QUOTE NIL) (QUOTE #) (QUOTE NIL) ...)) (CLIM-UTILS:DEFINE-GROUP HO::TEXT-MEDIAOBJECT CLIM:DEFINE-PRESENTATION-TYPE (CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE NIL) (QUOTE #) (QUOTE HO::MEDIAOBJECT) (QUOTE "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object.") (QUOTE NIL) (QUOTE NIL) (QUOTE #) (QUOTE NIL)) (CLIM-INTERNALS::DEFINE-PRESENTATION-METHOD-WITHOUT-MASSAGING CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES (#:PARAMETERS #:OPTIONS # #:FUNCTION) #:PARAMETERS #:OPTIONS (FUNCALL #:FUNCTION # #:TYPE) (LET # #) (FUNCALL #:FUNCTION # #) NIL) (QUOTE HO::TEXT-MEDIAOBJECT)))
   Arg 1 (COMPILER:COMPILE-TIME-TOO): NIL
   Arg 2 (COMPILER:ENVIRONMENT): (NIL NIL NIL NIL (((FUTURE-COMMON-LISP:COMPILE-FILE))))

1COMPILER:COMPILE-FROM-STREAM-10  (P.C. = 334)
   Arg 0 (SYS:FORM): (PROGN (EVAL-WHEN (COMPILE) (CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE NIL) (QUOTE #) (QUOTE HO::MEDIAOBJECT) (QUOTE "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object.") (QUOTE NIL) (QUOTE NIL) (QUOTE #) (QUOTE NIL) ...)) (CLIM-UTILS:DEFINE-GROUP HO::TEXT-MEDIAOBJECT CLIM:DEFINE-PRESENTATION-TYPE (CLIM-INTERNALS::ENSURE-PRESENTATION-TYPE (QUOTE HO::TEXT-MEDIAOBJECT) (QUOTE NIL) (QUOTE #) (QUOTE HO::MEDIAOBJECT) (QUOTE "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object.") (QUOTE NIL) (QUOTE NIL) (QUOTE #) (QUOTE NIL)) (CLIM-INTERNALS::DEFINE-PRESENTATION-METHOD-WITHOUT-MASSAGING CLIM:MAP-OVER-PRESENTATION-TYPE-SUPERTYPES (#:PARAMETERS #:OPTIONS # #:FUNCTION) #:PARAMETERS #:OPTIONS (FUNCALL #:FUNCTION # #:TYPE) (LET # #) (FUNCALL #:FUNCTION # #) NIL) (QUOTE HO::TEXT-MEDIAOBJECT)))
   Arg 1 (COMPILER:COMPILE-TIME-TOO): NIL
   Arg 2 (COMPILER:ENVIRONMENT): (NIL NIL NIL NIL (((FUTURE-COMMON-LISP:COMPILE-FILE))))

1(:PROPERTY SYS:DTP-SYMBOL SI:INTERPRETER-FUNCTION)0  (P.C. = 12)
   Arg 0 (FUNCTION): COMPILER:COMPILE-FROM-STREAM-1
   Rest Arg: ((CLIM:DEFINE-PRESENTATION-TYPE HO::TEXT-MEDIAOBJECT NIL :OPTIONS (HO::SELF HO::EXTENT) :INHERIT-FROM (QUOTE (HO::MEDIAOBJECT HO::TEXT)) :DESCRIPTION "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object.") NIL (NIL NIL NIL NIL ((#))))

1(:INTERNAL COMPILER:COMPILE-TO-FILE 0 :PROCESS-FORM)0  (P.C. = 10)
   Arg 0 (SI:**DEFSELECT-OP**): :PROCESS-FORM
   Arg 1 (COMPILER:PROCESS-FUNCTION): COMPILER:COMPILE-FROM-STREAM-1
   Arg 2 (SYS:FORM): (CLIM:DEFINE-PRESENTATION-TYPE HO::TEXT-MEDIAOBJECT NIL :OPTIONS (HO::SELF HO::EXTENT) :INHERIT-FROM (QUOTE (HO::MEDIAOBJECT HO::TEXT)) :DESCRIPTION "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object.")

1COMPILER:COMPILE-TO-FILE0  (P.C. = 72)
   Arg 0 (SI:OPERATION): :PROCESS-FORM
   Rest Arg (SI:SELECT-METHOD-ARGS): NIL

1(:PROPERTY SYS:DTP-SYMBOL SI:INTERPRETER-FUNCTION)0  (P.C. = 12)
   Arg 0 (FUNCTION): COMPILER:COMPILE-TO-FILE
   Rest Arg: (:PROCESS-FORM COMPILER:COMPILE-FROM-STREAM-1 (CLIM:DEFINE-PRESENTATION-TYPE HO::TEXT-MEDIAOBJECT NIL :OPTIONS (HO::SELF HO::EXTENT) :INHERIT-FROM (QUOTE (HO::MEDIAOBJECT HO::TEXT)) :DESCRIPTION "If the self option is non-nil,
then present media label (i.e., ``Text'')
else present the specified view of the object.
NOTE: either value of self presents the same object."))

1COMPILER:PROCESS-FORMS-FROM-STREAM0  (P.C. = 157)
   Arg 0 (COMPILER:INPUT-STREAM): #<SI:STRING-CHAR-EPSILON-INPUT-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp" 110176152>
   Arg 1 (COMPILER:PROCESS-FUNCTION): COMPILER:COMPILE-FROM-STREAM-1
   Arg 2 (COMPILER:FOR-FILE): T
   Arg 3 (COMPILER:AREA-FOR-READING): 8

1(:INTERNAL COMPILER:COMPILE-FROM-STREAM 0)0  (P.C. = 42)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600670660>

1COMPILER:COMPILER-BIND-CONTEXT-INTERNAL0  (P.C. = 143)
   Arg 0 (COMPILER:CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL COMPILER:COMPILE-FROM-STREAM 0) 36600670663>
   Arg 1 (COMPILER:BIND-CONTEXT-P): NIL
   Arg 2 (COMPILER:BIND-WARNINGS-P): T

1COMPILER:COMPILE-FROM-STREAM0  (P.C. = 340)
   Arg 0 (COMPILER:INPUT-STREAM): #<SI:STRING-CHAR-EPSILON-INPUT-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp" 110176152>
   Arg 1 (COMPILER:GENERIC-PATHNAME): #P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test."
   Arg 2: COMPILER:COMPILE-TO-FILE
   Arg 3 (COMPILER:ADDITIONAL-BINDINGS): NIL
   Rest Arg: NIL

1(:INTERNAL (:INTERNAL COMPILER:COMPILE-FILE 1 SI:WRITING-BIN-FILE) 0 SI:WRITING-BIN-STREAM)0  (P.C. = 40)
   Arg 0: #<LOCATIVE 36600670626>
   Arg 1 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 110141126>

1SI:WRITING-BIN-STREAM-10  (P.C. = 67)
   Arg 0 (SI:CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL # 0 SI:WRITING-BIN-STREAM) 36600670630>
   Arg 1 (SI:STREAM): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 110141126>
4   --Defaulted args:--
0   Arg 2 (SI:NO-TABLE-P): NIL

1(:INTERNAL COMPILER:COMPILE-FILE 1 SI:WRITING-BIN-FILE)0  (P.C. = 20)
   Arg 0: #<LOCATIVE 36600670531>
   Arg 1 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<NFS::NFS2-OUTPUT-WIDE-BINARY-STREAM "AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin" 110141126>

1SI:WRITING-BIN-FILE-10  (P.C. = 33)
   Arg 0 (SI:CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL COMPILER:COMPILE-FILE 1 SI:WRITING-BIN-FILE) 36600670537>
   Arg 1 (SI:FILE): #P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin"
   Arg 2 (SI:SET-LOAD-DEFAULT-P): NIL

1COMPILER:COMPILE-FILE0  (P.C. = 313)
   Arg 0 (COMPILER:INFILE): #P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp"
4   --Defaulted args:--
0   Arg 1 (COMPILER:OUTFILE): #P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.ibin"
   Arg 2 (COMPILER:IN-PACKAGE): NIL
   Arg 3 (COMPILER:DONT-SET-DEFAULT-P): NIL

1(:PROPERTY SYS:DTP-SYMBOL SI:INTERPRETER-FUNCTION)0  (P.C. = 12)
   Arg 0 (FUNCTION): COMPILER:COMPILE-FILE
   Rest Arg: (#P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp")

1(:INTERNAL (:INTERNAL (:INTERNAL SI:COM-COMPILE-FILE 0) 0) 1 SI:INVOKE-COMPILER-INTERNAL)0  (P.C. = 42)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): (((#P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp") NIL :USE-CANONICAL-TYPE :NO :NO T T NIL) #<Compiled function (:INTERNAL (:INTERNAL (:INTERNAL SI:COM-COMPILE-FILE 0) 0) 0 SI:BARF) 20043541453> #<LEXICAL-CLOSURE # 100006566> #<LEXICAL-CLOSURE # 100006570> #<LEXICAL-CLOSURE # 100006572>)
   Arg 1 (PROCESS::NAME): "COMPILE-FILE"
   Arg 2 (SI:PKG): "COMPILER"
   Arg 3 (SI:FILE): #P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp"
   Arg 4 (SI:BINARY-FILE): NIL

1(:INTERNAL (:INTERNAL (:INTERNAL SI:COM-COMPILE-FILE 0) 0) 2 SI:INVOKE-COMPILER)0  (P.C. = 106)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): (((#P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp") NIL :USE-CANONICAL-TYPE :NO :NO T T NIL) #<Compiled function (:INTERNAL (:INTERNAL (:INTERNAL SI:COM-COMPILE-FILE 0) 0) 0 SI:BARF) 20043541453> #<LEXICAL-CLOSURE # 100006566> #<LEXICAL-CLOSURE # 100006570> #<LEXICAL-CLOSURE # 100006572>)
   Arg 1 (SI:FILE): #P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp"
   Arg 2 (SI:BINARY-FILE): NIL
   Arg 3 (SI:COMPILER): :USE-CANONICAL-TYPE
   Arg 4 (SI:SILENTLY): T

1(:INTERNAL (:INTERNAL (:INTERNAL SI:COM-COMPILE-FILE 0) 0) 3 SI:INVOKE-COMPILER-AND-LOAD)0  (P.C. = 45)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): (((#P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp") NIL :USE-CANONICAL-TYPE :NO :NO T T NIL) #<Compiled function (:INTERNAL (:INTERNAL (:INTERNAL SI:COM-COMPILE-FILE 0) 0) 0 SI:BARF) 20043541453> #<LEXICAL-CLOSURE # 100006566> #<LEXICAL-CLOSURE # 100006570> #<LEXICAL-CLOSURE # 100006572>)
   Arg 1 (SI:FILE): #P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp"
   Arg 2 (SI:COMPILER): :USE-CANONICAL-TYPE
   Arg 3 (ZL:LOAD): :NO
   Arg 4 (SI:SILENTLY): T
   Arg 5 (SI:WILD-PATHNAME): #P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp"

1(:INTERNAL (:INTERNAL (:INTERNAL SI:COM-COMPILE-FILE 0) 0) 4)0  (P.C. = 243)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): (((#P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp") NIL :USE-CANONICAL-TYPE :NO :NO T T NIL) #<Compiled function (:INTERNAL (:INTERNAL (:INTERNAL SI:COM-COMPILE-FILE 0) 0) 0 SI:BARF) 20043541453> #<LEXICAL-CLOSURE # 100006566> #<LEXICAL-CLOSURE # 100006570> #<LEXICAL-CLOSURE # 100006572>)

1COMPILER:COMPILER-BIND-CONTEXT-INTERNAL0  (P.C. = 106)
   Arg 0 (COMPILER:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 4) 100006554>
   Arg 1 (COMPILER:BIND-CONTEXT-P): T
   Arg 2 (COMPILER:BIND-WARNINGS-P): NIL

1(:INTERNAL (:INTERNAL SI:COM-COMPILE-FILE 0) 0)0  (P.C. = 105)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): ((#P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp") NIL :USE-CANONICAL-TYPE :NO :NO T T NIL)

1CP::WITH-STANDARD-OUTPUT-BOUND-INTERNAL0  (P.C. = 101)
   Arg 0 (CP::DESTINATIONS): NIL
   Arg 1 (CP::CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 100006545>

1(:INTERNAL SI:COM-COMPILE-FILE 0)0  (P.C. = 14)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): ((#P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp") NIL :USE-CANONICAL-TYPE :NO :NO T T NIL)

1CP::WITH-MORE-PROCESSING-BOUND0  (P.C. = 46)
   Arg 0 (CP::MORE-PROCESSING): :DEFAULT
   Arg 1 (CP::CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:COM-COMPILE-FILE 0) 100006533>

1SI:COM-COMPILE-FILE0  (P.C. = 130)
   Arg 0: (#P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp")
   Rest Arg (I-LISP-COMPILER:.SAVED-CONTINUATION-REGISTER.): NIL

 Call started to FUNCALL
   Arg 0: #<Compiled function LIST 20040030140>

1CP::COMMAND-LOOP-EVAL-FUNCTION0  (P.C. = 50)
   Arg 0 (CP::FORM): (SI:COM-COMPILE-FILE (QUOTE (#P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp")))
4   --Defaulted args:--
0   Arg 1 (CP::ENVIRONMENT): NIL

1(:PROPERTY SYS:DTP-SYMBOL SI:INTERPRETER-FUNCTION)0  (P.C. = 12)
   Arg 0 (FUNCTION): CP::COMMAND-LOOP-EVAL-FUNCTION
   Rest Arg: ((SI:COM-COMPILE-FILE (QUOTE (#P"AZURE:/ha2/buff/lispm.sct/hyperobjects/media-test.lisp"))))

1(:INTERNAL SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 0)0  (P.C. = 10)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600670246>
   Arg 1 (PROCESS:START-DELAYED-PRIORITIES): #<STACK-LEXICAL-CLOSURE (:INTERNAL PROCESS::WITH-DELAYED-PROCESS-PRIORITIES-INTERNAL 0 PROCESS::START-TIMERS) 36600670267>

1PROCESS::WITH-DELAYED-PROCESS-PRIORITIES-INTERNAL0  (P.C. = 173)
   Arg 0 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 0) 36600670251>
   Arg 1 (PROCESS::PRIORITY): T
   Rest Arg: (2.0 -822083583)

1SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL0  (P.C. = 50)
   Arg 0 (PROCESS:PROCESS): #<PROCESS:PROCESS Dynamic Lisp Listener 1 (2 1) 20120007706>
   Arg 1 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 36600670176>
   Rest Arg: NIL

1TV:WITH-NOTIFICATION-MODE-INTERNAL0  (P.C. = 26)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL # 0) 36600670157>

1(:INTERNAL SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 0)0  (P.C. = 6)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600670133>

1PROCESS::WITH-PROCESS-PRIORITY-INTERNAL0  (P.C. = 116)
   Arg 0 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 0) 36600670136>
   Arg 1 (PROCESS::NEW-PRIORITY): -824180735

1SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL0  (P.C. = 72)
   Arg 0 (PROCESS:PROCESS): #<PROCESS:PROCESS Dynamic Lisp Listener 1 (2 1) 20120007706>
   Arg 1 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 36600670126>
   Rest Arg: NIL

1SI:LISP-COMMAND-LOOP-INTERNAL0  (P.C. = 40)
   Arg 0 (PROCESS::NAME): "Lisp Top Level"
   Arg 1 (SI:ABORT-FUNCTION): NIL
   Arg 2 (SI:READ-FUNCTION): NIL
   Arg 3 (SI:EVAL-FUNCTION): NIL
   Arg 4 (SI:PRINT-FUNCTION): NIL
   Arg 5 (PROCESS::INITIAL-FORM): NIL
   Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)

1SI:LISP-COMMAND-LOOP0  (P.C. = 142)
   Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 20006402557 exposed>
   Rest Arg: (:NAME "Lisp Top Level")

1SI:LISP-TOP-LEVEL10  (P.C. = 16)
   Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 20006402557 exposed>

1(:PROPERTY SYS:DTP-SYMBOL SI:INTERPRETER-FUNCTION)0  (P.C. = 12)
   Arg 0 (FUNCTION): SI:LISP-TOP-LEVEL1
   Rest Arg (ZL:ARGS): (#<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 20006402557 exposed>)

1(FLAVOR:METHOD PROCESS::PROCESS-TOP-LEVEL-1 PROCESS:PROCESS)0  (P.C. = 142)
   Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map to flavor PROCESS:PROCESS 20020560446>
   Arg 1 (SELF): #<PROCESS:PROCESS Dynamic Lisp Listener 1 (2 1) 20120007706>

1PROCESS::PROCESS-TOP-LEVEL0  (P.C. = 433)
4   --Defaulted args:--
0   Arg 0 (IGNORE): NIL

1SI:STACK-GROUP-PRESETTER0  (P.C. = 13)
   Arg 0 (FUNCTION): #<Compiled function PROCESS::PROCESS-TOP-LEVEL 20040717044>
   Rest Arg (ZL:ARGS): NIL

 Call started to FUNCALL
   Arg 0: #<Compiled function SI:STACK-GROUP-EXHAUSTED 20040141122>
Follow-Ups:
clim 2 lisp compiler error
From: Scott McKay <swm@harlequin.com>
Prev: unsubscribe
Next: Postscript streams and clipping regions
Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)
Main Index | Thread Index