[Openmcl-devel] Error when edit a simple lisp file in Clozure CL's editor

Chun Tian (binghe) binghe.lisp at gmail.com
Mon Mar 31 20:36:14 UTC 2008


Hi, Clozure CL developers

It's strange that following lisp source file cannot be edited by  
"Clozure CL.app" (I'm using the newest version built from SVN)

= 
= 
= 
= 
= 
= 
========================================================================
;;;; -*- Mode: lisp; Syntax: ansi-common-lisp; Base: 10; Package: cl- 
user; -*-

(in-package :cl-user)
= 
= 
= 
= 
= 
= 
========================================================================

I think the header part of my lisp file made something wrong. Hope it  
can be fixed.

Backtrace like this:

*** Error in event process: value -7 is not of the expected type  
CCL::UVECTOR.

(4429B8) : 0 (FUNCALL #'#<Anonymous Function #x300041BD3B6F>
                       #<TYPE-ERROR #x300041F0F24D>) 149
   (#:G15679)

   #:G15676: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFE2B0>
   #:G15679: #<TYPE-ERROR #x300041F0F24D>

(4429E0) : 1 (SIGNAL #<TYPE-ERROR #x300041F0F24D> [...]) 989
   (CONDITION &REST CCL::ARGS)
    CONDITION: #<TYPE-ERROR #x300041F0F24D>
    CCL::ARGS: NIL

   CCL::%HANDLERS%: ((ERROR) (ERROR))
   CCL::TAG: (CONDITION #<COMPILED-LEXICAL-CLOSURE #x493DCF>)
   CCL::HANDLERS: CCL::*BACKTRACE-CONTEXTS*
   CCL::FN: #<COMPILED-LEXICAL-CLOSURE #x493DCF>

(442A38) : 2 (%ERROR #<TYPE-ERROR #x300041F0F24D> NIL 558452) 93
   (CONDITION CCL::ARGS CCL::ERROR-POINTER)
    CONDITION: #<TYPE-ERROR #x300041F0F24D>
    CCL::ARGS: NIL
    CCL::ERROR-POINTER: 558452



(442A60) : 3 (FUNCALL #'#<Anonymous Function #x30004056249F>) 3821
   NIL

   CCL::XP: #<A Foreign Pointer #x7FFF5FBFDF80>
   CCL::XCF: #<A Foreign Pointer #x442BA0>
   CCL::FRAME-PTR: 558452
   CCL::FN: #<Compiled-function HEMLOCK-INTERFACE:DELETE-REGION  
#x3000416F1E6F>
   CCL::OP0: 205
   CCL::OP1: 214
   CCL::OP2: 5
   CCL::SKIP: 3
   CCL::TYPENAME: CCL::UVECTOR

(442AC0) : 4 (FUNCALL-WITH-ERROR-REENTRY-DETECTION
                #<COMPILED-LEXICAL-CLOSURE #x493C1F>) 205
   (CCL::THUNK)
    CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE #x493C1F>

   COUNT: 0
   CCL::*ERROR-REENTRY-COUNT*: 1

(442B00) : 5 (FUNCALL #'#<CCL::%XERR-DISP> 17591849974508) 493
   (#:G59050)
    #:G59050: 17591849974508

   #:G59056: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFD760>
   CCL::XP: #<A Foreign Pointer #x7FFF5FBFDF80>
   CCL::XCF: #<A Foreign Pointer #x442BA0>
   #:G59057: #<COMPILED-LEXICAL-CLOSURE #x493C1F>

(442B38) : 6 (%PASCAL-FUNCTIONS% 2 17591849974508) 405
   (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
    CCL::INDEX: 2
    CCL::ARGS-PTR-FIXNUM: 17591849974508

   CCL::LISP-FUNCTION: #<Compiled-function CCL::%XERR-DISP (Non- 
Global)  #x3000405636EF>
   WITHOUT-INTERRUPTS: NIL
   CCL::*CALLBACK-TRACE-P*: NIL

(442BA0) : 8 (DELETE-REGION
                #<Hemlock Region "Unknown file option: "syntax"/ 
Unknown file option: "base"/#<error printing object>) 2255
   (HEMLOCK-INTERFACE:REGION)
    HEMLOCK-INTERFACE:REGION: #<Hemlock Region "Unknown file option:  
"syntax"/Unknown file option: "base"/#<error printing object>

   HEMLOCK-INTERNALS::START: #<Hemlock Mark "^Unknown file option:  
"syntax"">
   HEMLOCK-INTERNALS::END: #<Hemlock Mark "#<error printing object>
   HEMLOCK-INTERNALS::FIRST-LINE: #<Hemlock Line "Unknown file option:  
"syntax"">
   HEMLOCK-INTERNALS::LAST-LINE: #<Hemlock Line "#<error printing  
object>
   HEMLOCK-INTERNALS::FIRST-CHARPOS: 0
   HEMLOCK-INTERNALS::LAST-CHARPOS: 0
   HEMLOCK-INTERNALS:BUFFER: #<Hemlock Buffer "Echo Area">
   HEMLOCK-INTERNALS::NDEL: 58
   #:G7152: T
   CCL::*INTERRUPT-LEVEL*: -1
   HEMLOCK-INTERNALS::FIRST-CHARS: "Unknown file option: \"syntax\""
   HEMLOCK-INTERNALS::LAST-CHARS: -7

(442C68) : 9 (CLEAR-ECHO-AREA) 933
   NIL

   HEMLOCK-INTERNALS::B: #<Hemlock Buffer "Main">
   #:G8687: 0
   #:G8688: T
   CCL::*INTERRUPT-LEVEL*: -1

(442D20) : 10 (LOUD-MESSAGE [...]) 101
   (&REST HEMLOCK-INTERNALS::ARGS)
    HEMLOCK-INTERNALS::ARGS: ("Missing \":\".  Aborting file options.")



(442D38) : 11 (PROCESS-FILE-OPTIONS
                 #<Hemlock Buffer "test.lisp /Users/binghe/Lisp/src/">
                 [...]) 717
   (HEMLOCK-INTERNALS:BUFFER &OPTIONAL PATHNAME)
    HEMLOCK-INTERNALS:BUFFER: #<Hemlock Buffer "test.lisp /Users/ 
binghe/Lisp/src/">
    PATHNAME: "/Users/binghe/Lisp/src/test.lisp"

   STRING: ";;;; -*- Mode: lisp; Syntax: ansi-common-lisp; Base: 10;  
Package: cl-user; -*-"
   HEMLOCK::FOUND: 5
   HEMLOCK::NO-MAJOR-MODE: NIL
   TYPE: "lisp"
   HEMLOCK::START: 8
   HEMLOCK::END: 75
   HEMLOCK::OPT-START: 74
   HEMLOCK::COLON: NIL
   HEMLOCK::SEMI: 73

(442DA8) : 12 (FUNCALL #'#<GUI::|-[HemlockEditorDocument  
readFromURL:ofType:error:]|>
                        17591849974870) 2557
   (#:G15675)
    #:G15675: 17591849974870

   #:G15689: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFE2B0>
   #:G15676: #<A Foreign Pointer [stack-allocated] #x7FFF5FBFE2B0>
   #:COMPILER-VAR: (NIL)
   #:G15681: #<COMPILED-LEXICAL-CLOSURE #x493DCF>
   #:G15690: (CONDITION #<COMPILED-LEXICAL-CLOSURE #x493DCF>)
   CCL::%HANDLERS%: ((CONDITION #) (ERROR))
   GUI::SELF: #<HEMLOCK-EDITOR-DOCUMENT <HemlockEditorDocument:  
0x13c24730> (#x13C24730)>
   GUI::_CMD: #<A Foreign Pointer #x7FFF83FD3820>
   GUI::URL: #<NS-URL file://localhost/Users/binghe/Lisp/src/test.lisp  
(#x13C20F70)>
   TYPE: #<NS-MUTABLE-STRING "Lisp source code" (#x1998B0)>
   GUI::PERROR: #<A Foreign Pointer #x7FFF5FBFE3D8>
   GUI::PUSED-ENCODING: #<A Foreign Pointer [stack-allocated] (:*
                                                                
(:UNSIGNED
                                                                64))  
#x7FFF5FBFE1C0>
   PATHNAME: "/Users/binghe/Lisp/src/test.lisp"
   GUI::BUFFER-NAME: "test.lisp /Users/binghe/Lisp/src/"
   GUI::BUFFER: #<Hemlock Buffer "test.lisp /Users/binghe/Lisp/src/">
   GUI::SELECTED-ENCODING: 5
   STRING: #<NS-MUTABLE-STRING ";;;; -*- Mode: lisp; Syntax: ansi- 
common-lisp; Base: 10; Package: cl-user; -*-

(in-package :cl-user)

" (#x1BEF10)>

(442E58) : 13 (%PASCAL-FUNCTIONS% 110 17591849974870) 405
   (CCL::INDEX CCL::ARGS-PTR-FIXNUM)
    CCL::INDEX: 110
    CCL::ARGS-PTR-FIXNUM: 17591849974870

   CCL::LISP-FUNCTION: #<Compiled-function GUI::|- 
[HemlockEditorDocument readFromURL:ofType:error:]| (Non-Global)   
#x300041BD3C6F>
   WITHOUT-INTERRUPTS: NIL
   CCL::*CALLBACK-TRACE-P*: NIL

(442F18) : 15 (FUNCALL #'#<Anonymous Function #x30004138278F>
                        #<LISP-APPLICATION <LispApplication: 0x1bb390>  
(#x1BB390)>
                        #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A  
Foreign Pointer #x7FFF83FCBDC8>)) 205
   (#:G1792 #:G1793)
    #:G1792: #<LISP-APPLICATION <LispApplication: 0x1bb390> (#x1BB390)>
    #:G1793: #S(CCL::OBJC-SELECTOR :NAME "run"
                                   :%SEL #<A Foreign Pointer  
#x7FFF83FCBDC8>)



(442F38) : 16 (FUNCALL #'#<CCL::SEND-UNAMBIGUOUS-MESSAGE>
                        #<LISP-APPLICATION <LispApplication: 0x1bb390>  
(#x1BB390)>
                        [...]) 525
   (CCL::RECEIVER &REST CCL::ARGS)

   CCL::RECEIVER: #<LISP-APPLICATION <LispApplication: 0x1bb390>  
(#x1BB390)>
   CCL::ARGS: NIL

(442F80) : 17 (RUN-EVENT-LOOP) 397
   NIL

   GUI::APP: #<LISP-APPLICATION <LispApplication: 0x1bb390> (#x1BB390)>
   #:G4132: (ERROR)
   CCL::%HANDLERS%: ((ERROR))
   GUI::*EVENT-PROCESS-REPORTED-CONDITIONS*: (#<TYPE-ERROR  
#x300041F0F24D>)




2008-04-01 04:29:55.553 dx86cl64[23788:613] *** NSThread: ignoring  
exception 'Lisp exception: value -7 is not of the expected type  
CCL::UVECTOR.' that raised during thread perform of target 0x1e88f0  
and selector 'openDocument:'




More information about the Openmcl-devel mailing list