[Openmcl-devel] re ...the sky is falling
Joakim Sandgren
joakim at joakimsandgren.com
Sun Apr 4 00:23:47 PDT 2010
if I understand it right ;
i load urwerk
i load my file
i do meta dot on a function in my file
and here is the console :
was this the procedure you expected me to do ?
sincerely
joakim
Lisp error: "Array index 197 out of bounds for #(515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515) ."
(34B764) : 0 (PRINT-CALL-HISTORY :CONTEXT NIL :PROCESS NIL :ORIGIN
NIL :DETAILED-P T :COUNT 536870911 :START-FRAME-NUMBER 0 :STREAM
#<SYNONYM-STREAM to *TERMINAL-IO* #xC613EC6> :PRINT-LEVEL 2 :PRINT-
LENGTH 5 :SHOW-INTERNAL-FRAMES NIL :FORMAT :TRADITIONAL) 735
(&KEY :CONTEXT :PROCESS :ORIGIN :DETAILED-P :COUNT :START-FRAME-
NUMBER :STREAM :PRINT-LEVEL :PRINT-LENGTH :SHOW-INTERNAL-FRAMES :FORMAT)
CCL::CONTEXT: NIL
PROCESS: NIL
CCL::ORIGIN: NIL
CCL::DETAILED-P: T
COUNT: 536870911
CCL::START-FRAME-NUMBER: 0
STREAM: #<SYNONYM-STREAM to *TERMINAL-IO* #xC613EC6>
CCL::PRINT-LEVEL: 2
CCL::PRINT-LENGTH: 5
CCL::SHOW-INTERNAL-FRAMES: NIL
FORMAT: :TRADITIONAL
CCL::FRAME-NUMBER: 0
*BACKTRACE-PRINT-LEVEL*: 2
*BACKTRACE-PRINT-LENGTH*: 5
*BACKTRACE-FORMAT*: :TRADITIONAL
*STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #xC613EC6>
*PRINT-CIRCLE*: NIL
(34B818) : 1 (MAYBE-LOG-CALLBACK-ERROR #<SIMPLE-ERROR #xC8D2CDE>) 1599
(CONDITION)
CONDITION: #<SIMPLE-ERROR #xC8D2CDE>
GUI::EMSG: "Array index 197 out of bounds for #(515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515 515
515 515 515 515 515) ."
#:G24021: (ERROR)
CCL::%HANDLERS%: ((ERROR) (ERROR) (ERROR) (ERROR #) (CONDITION
#) ...)
(34B83C) : 2 (FUNCALL #'#<#<STANDARD-METHOD HEMLOCK-EXT:REPORT-
HEMLOCK-ERROR (HI:HEMLOCK-VIEW T T)>> #<HI:HEMLOCK-VIEW #xC8BBDD6>
#<SIMPLE-ERROR #xC8D2CDE> T) 55
(GUI::VIEW CONDITION GUI::DEBUG-P)
GUI::VIEW: #<HI:HEMLOCK-VIEW #xC8BBDD6>
CONDITION: #<SIMPLE-ERROR #xC8D2CDE>
GUI::DEBUG-P: T
(34B850) : 3 (LISP-ERROR-ERROR-HANDLER #<SIMPLE-ERROR
#xC8D2CDE> :DEBUG-P T) 399
(CONDITION &KEY :DEBUG-P)
CONDITION: #<SIMPLE-ERROR #xC8D2CDE>
HI::DEBUG-P: T
*STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #xC613F06>
#:G28057: (ERROR)
CCL::%HANDLERS%: ((ERROR) (ERROR) (ERROR #) (CONDITION #)
(CONDITION #))
(34B880) : 4 (SIGNAL #<SIMPLE-ERROR #xC8D2CDE>) 903
(CONDITION &REST CCL::ARGS)
CONDITION: #<SIMPLE-ERROR #xC8D2CDE>
CCL::ARGS: NIL
CCL::%HANDLERS%: ((ERROR) (ERROR #) (CONDITION #) (CONDITION #))
CCL::TAG: (ERROR #<Compiled-function # (Non-Global) #x52888F6>)
CCL::HANDLERS: (ERROR #<Compiled-function # (Non-Global) #x52888F6>)
CCL::FN: #<Compiled-function (:INTERNAL #) (Non-Global) #x52888F6>
(34B8A8) : 5 (%ERROR #<SIMPLE-ERROR #xC8D2CDE> (197 #(515 515 515
515 515 ...)) 863834) 119
(CONDITION CCL::ARGS CCL::ERROR-POINTER)
CONDITION: #<SIMPLE-ERROR #xC8D2CDE>
CCL::ARGS: (197 #(515 515 515 515 515 ...))
CCL::ERROR-POINTER: 863834
(34B8BC) : 6 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 2399
NIL
CCL::FRAME-PTR: 863834
CCL::FN: #<Compiled-function HI::COMPUTE-BOYER-MOORE-JUMPS #x53058E6>
CCL::OP0: 205
CCL::OP1: 200
CCL::OP2: 97
CCL::SKIP: -1
CCL::XP: #<A Foreign Pointer #xBFFFF370>
CCL::XCF: #<A Foreign Pointer #x34B968>
(34B8E4) : 7 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-
LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #xCC7B6>) 183
(CCL::THUNK)
CCL::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP)
#xCC7B6>
COUNT: 0
CCL::*ERROR-REENTRY-COUNT*: 0
(34B904) : 8 (FUNCALL #'#<CCL::%XERR-DISP> -268436758) 495
(#:G139934)
#:G139934: -268436758
#:G139943: #<A Foreign Pointer [stack-allocated] #xBFFFEBA8>
CCL::XP: #<A Foreign Pointer #xBFFFF370>
CCL::XCF: #<A Foreign Pointer #x34B968>
#:G139944: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP)
#xCC7B6>
(34B920) : 9 (%PASCAL-FUNCTIONS% 2 -268436758) 343
(CCL::INDEX CCL::ARGS-PTR-FIXNUM)
CCL::INDEX: 2
CCL::ARGS-PTR-FIXNUM: -268436758
CCL::LISP-FUNCTION: #<Compiled-function CCL::%XERR-DISP (Non-
Global) #x44FC4A6>
WITHOUT-INTERRUPTS: NIL
CCL::*CALLBACK-TRACE-P*: NIL
*(34B968) : 10 (COMPUTE-BOYER-MOORE-JUMPS #(40 68 69 70 77 ...)
#<Compiled-function SVREF #x40FDE7E>) 232
(HI::VEC HI::ACCESS-FUN)
HI::VEC: #(40 68 69 70 77 ...)
HI::ACCESS-FUN: #<Compiled-function SVREF #x40FDE7E>
HI::JUMPS: #(515 515 515 515 515 ...)
HI::LEN: 515
#:G31365: 515
HI::I: 197
Search-Pattern for
(34B9A4) : 11 (FUNCALL #'#<Anonymous Function #x5312366> :FORWARD
"(defmethod skala-om-float ((värden list) nytt-golv nytt-tak)
(if (remove nil värden)
(let (minv maxv)
(setf minv (reduce #'min värden))
(setf maxv (reduce #'max värden))
(map 'list #'(lambda (värde)
(räkna-om-float värde
minv
maxv
nytt-golv nytt-
tak))
värden))
" #<Hemlock forward string-insensitive"(defmethod skala-om-
float ((värden list) nytt-golv nytt-tak)
(if (remove nil värden)
(let (minv maxv)
(setf minv (reduce #'min värden))
(setf maxv (reduce #'max värden))
(map 'list #'(lambda (värde)
(räkna-om-float värde
minv
maxv
nytt-golv nytt-
tak))
värden))
">
) 1143
(HI::DIRECTION HI::PATTERN HI::OLD)
HI::DIRECTION: :FORWARD
HI::PATTERN: "(defmethod skala-om-float ((värden list) nytt-golv
nytt-tak)
(if (remove nil värden)
(let (minv maxv)
(setf minv (reduce #'min värden))
(setf maxv (reduce #'max värden))
(map 'list #'(lambda (värde)
(räkna-om-float värde
minv
maxv
nytt-golv nytt-
tak))
värden))
"
HI::OLD: #<Hemlock forward string-insensitive Search-Pattern for
"(defmethod skala-om-float ((värden list) nytt-golv nytt-tak)
(if (remove nil värden)
(let (minv maxv)
(setf minv (reduce #'min värden))
(setf maxv (reduce #'max värden))
(map 'list #'(lambda (värde)
(räkna-om-float värde
minv
maxv
nytt-golv nytt-
tak))
värden))
">
HI::FOLDED-STRING: "(DEFMETHOD SKALA-OM-FLOAT ((VÄRDEN LIST) NYTT-
GOLV NYTT-TAK)
(IF (REMOVE NIL VÄRDEN)
(LET (MINV MAXV)
(SETF MINV (REDUCE #'MIN VÄRDEN))
(SETF MAXV (REDUCE #'MAX VÄRDEN))
(MAP 'LIST #'(LAMBDA (VÄRDE)
(RÄKNA-OM-FLOAT VÄRDE
MINV
MAXV
NYTT-GOLV NYTT-
TAK))
VÄRDEN))
"
HI::HASHED-STRING: #(40 68 69 70 77 ...)
(34B9C4) : 12 (MOVE-TO-SOURCE-NOTE #<SOURCE-NOTE *"ejs:environnement
js 37.05.o;utilities;UTILITIES.LISP":12450-12973 "(defmethod skala-om-
float ((värden list) nytt-golv nytt-tak) (if (remove nil värden) (let
(minv maxv) (setf minv (reduce...">) 503
(HEMLOCK::SOURCE)
HEMLOCK::SOURCE: #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":12450-12973 "(defmethod skala-om-
float ((värden list) nytt-golv nytt-tak) (if (remove nil värden) (let
(minv maxv) (setf minv (reduce...">
HEMLOCK::START-POS: 12450
HEMLOCK::FULL-TEXT: "(defmethod skala-om-float ((värden list) nytt-
golv nytt-tak)
(if (remove nil värden)
(let (minv maxv)
(setf minv (reduce #'min värden))
(setf maxv (reduce #'max värden))
(map 'list #'(lambda (värde)
(räkna-om-float värde
minv
maxv
nytt-golv nytt-
tak))
värden))
"
HEMLOCK::PATTERN: NIL
HEMLOCK::OFFSET: 0
HEMLOCK::TEMP-MARK: #<Hemlock Mark "^(defmethod skala-om-float
((värden list) nytt-golv nytt-tak)">
HEMLOCK-INTERFACE:MARK: #<Hemlock Mark "^(defmethod skala-om-float
((värden list) nytt-golv nytt-tak)">
STRING: "(defmethod skala-om-float ((värden list) nytt-golv nytt-tak)
(if (remove nil värden)
(let (minv maxv)
(setf minv (reduce #'min värden))
(setf maxv (reduce #'max värden))
(map 'list #'(lambda (värde)
(räkna-om-float värde
minv
maxv
nytt-golv nytt-
tak))
värden))
"
(34B9EC) : 13 (FIND-DEFINITION-IN-BUFFER #<METHOD-DEFINITION-TYPE
METHOD #xC13017E> #<STANDARD-METHOD UTILITAIRES:SKALA-OM-FLOAT (LIST T
T)> #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":12450-12973 "(defmethod skala-om-
float ((värden list) nytt-golv nytt-tak) (if (remove nil värden) (let
(minv maxv) (setf minv (reduce...">) 87
(HEMLOCK::DEF-TYPE HEMLOCK::FULL-NAME HEMLOCK::SOURCE)
HEMLOCK::DEF-TYPE: #<METHOD-DEFINITION-TYPE METHOD #xC13017E>
HEMLOCK::FULL-NAME: #<STANDARD-METHOD UTILITAIRES:SKALA-OM-FLOAT
(LIST T T)>
HEMLOCK::SOURCE: #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":12450-12973 "(defmethod skala-om-
float ((värden list) nytt-golv nytt-tak) (if (remove nil värden) (let
(minv maxv) (setf minv (reduce...">
(34BA00) : 14 (FUNCALL #'#<#<STANDARD-METHOD HI::EXECUTE-HEMLOCK-KEY
(HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC86FB46> #<COMPILED-LEXICAL-
CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION HEMLOCK::EDIT-DEFINITION)
#xC8077B6>) 287
(HI::VIEW HI::KEY)
HI::VIEW: #<HI:HEMLOCK-VIEW #xC86FB46>
HI::KEY: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-
ACTION HEMLOCK::EDIT-DEFINITION) #xC8077B6>
HI::*SAVED-STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO*
#xC613F06>
*STANDARD-OUTPUT*: #<GUI::COCOA-LISTENER-OUTPUT-STREAM #xC64D4FE>
(34BA2C) : 15 (FUNCALL #'#<(:INTERNAL (HI::HANDLE-HEMLOCK-EVENT
(HI:HEMLOCK-VIEW T)))>) 479
NIL
#:G28228: #<RESTART HI::EXIT-EVENT-HANDLER #xCC866>
#:G28224: (#<RESTART HI::EXIT-EVENT-HANDLER #xCC866>)
CCL::%RESTARTS%: ((#<# # #xCC866>) (#<# # #xCC976> #<# # #xCC99E>)
(#<# # #xCCB56>) (#<# # #xCCC66> #<# # #xCCC8E>) (#<# # #xCCFB6>))
#:G28229: #<Compiled-function (:INTERNAL #) (Non-Global) #x52888F6>
#:G28230: (ERROR #<Compiled-function # (Non-Global) #x52888F6>)
CCL::%HANDLERS%: ((ERROR #) (ERROR) (ERROR #) (CONDITION #)
(CONDITION #))
HI::KEY: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION
HEMLOCK::EDIT-DEFINITION) #xC8077B6>
HI::VIEW: #<HI:HEMLOCK-VIEW #xC86FB46>
(34BA68) : 16 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer
"UTILITIES.LISP /Users/js/ejs/environnement js 37.05.o/utilities/">
#<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #xC8809CE>) 415
(GUI::BUFFER GUI::THUNK)
GUI::BUFFER: #<Hemlock Buffer "UTILITIES.LISP /Users/js/ejs/
environnement js 37.05.o/utilities/">
GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #xC8809CE>
GUI::OLD: #<Hemlock Buffer "Untitled 2">
(34BA98) : 17 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-
EVENT (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC86FB46> #<COMPILED-
LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION HEMLOCK::EDIT-
DEFINITION) #xC8077B6>) 783
(HI::VIEW HI::KEY)
HI::VIEW: #<HI:HEMLOCK-VIEW #xC86FB46>
HI::KEY: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-
ACTION HEMLOCK::EDIT-DEFINITION) #xC8077B6>
#:ABORT-BREAK: #<RESTART ABORT-BREAK #xCC99E>
#:ABORT: #<RESTART ABORT #xCC976>
#:G28221: (#<RESTART ABORT #xCC976> #<RESTART ABORT-BREAK #xCC99E>)
CCL::%RESTARTS%: ((#<# # #xCC976> #<# # #xCC99E>) (#<# # #xCCB56>)
(#<# # #xCCC66> #<# # #xCCC8E>) (#<# # #xCCFB6>))
HI::*CURRENT-VIEW*: #<HI:HEMLOCK-VIEW #xC86FB46>
HI::*CURRENT-BUFFER*: #<Hemlock Buffer "UTILITIES.LISP /Users/js/
ejs/environnement js 37.05.o/utilities/">
HI::*NEXT-VIEW-START*: NIL
HI::TEXT-BUFFER: #<Hemlock Buffer "UTILITIES.LISP /Users/js/ejs/
environnement js 37.05.o/utilities/">
MOD: (223 0 . 0)
(34BAEC) : 18 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD HI::HANDLE-
HEMLOCK-EVENT #> . 863976)) 1055
(CCL::MAGIC &REST CCL::ARGS)
CCL::MAGIC: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> .
863976)
CCL::ARGS: NIL
CCL::NEXT-METHODS: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)
CCL::ARGS: 863976
CDR: NIL
METHOD-FUNCTION: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT
(HI:HEMLOCK-VIEW T)>
#:G103440: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> .
863976)
#:G103441: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-
VIEW T)>
#:G103442: 863976
(34BB34) : 19 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-
EVENT :AROUND (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC86FB46>
#<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION
HEMLOCK::EDIT-DEFINITION) #xC8077B6>) 175
(GUI::VIEW GUI::EVENT)
GUI::VIEW: #<HI:HEMLOCK-VIEW #xC86FB46>
GUI::EVENT: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-
ACTION HEMLOCK::EDIT-DEFINITION) #xC8077B6>
#:NEXT-METHOD-CONTEXT: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-
EVENT #> . 863976)
#:G45732: #<NS-AUTORELEASE-POOL <NSAutoreleasePool: 0x114060>
(#x114060)>
(34BB68) : 20 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD
HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-
HEMLOCK-EVENT #>) 863976) 679
(CCL::METHODS CCL::ARGS)
CCL::METHODS: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND
#> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)
CCL::ARGS: 863976
CCL::CAR-METHS: #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND
(HI:HEMLOCK-VIEW T)>
CCL::CELL-2: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 863976)
CCL::MAGIC: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> .
863976)
#:G103376: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> .
863976)
#:G103377: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT :AROUND
(HI:HEMLOCK-VIEW T)>
#:G103378: 863976
(34BBAC) : 21 (HANDLE-INVOKING-LISP-FUNCTION #<COMPILED-LEXICAL-
CLOSURE (:INTERNAL HEMLOCK-EXT:EXECUTE-IN-FILE-VIEW) #xC807786> NIL
NIL #<APPKIT-PROCESS Initial(0) [Active] #xC05C44E>) 575
(GUI::THUNK GUI::RESULT-HANDLER GUI::CONTEXT &OPTIONAL
GUI::INVOKING-PROCESS)
GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK-
EXT:EXECUTE-IN-FILE-VIEW) #xC807786>
GUI::RESULT-HANDLER: NIL
GUI::CONTEXT: NIL
GUI::INVOKING-PROCESS: #<APPKIT-PROCESS Initial(0) [Active]
#xC05C44E>
GUI::*INVOKING-EVENT-PROCESS*: #<APPKIT-PROCESS Initial(0) [Active]
#xC05C44E>
GUI::*INVOKING-EVENT-CONTEXT*: NIL
(34BBE4) : 22 (FUNCALL #'#<(:INTERNAL HEMLOCK::DEFN-ACTION
HEMLOCK::EDIT-DEFINITION)> ((#<# # #xC13017E> . #<#>) . #<SOURCE-NOTE
*"ejs:environnement js 37.05.o;utilities;UTILITIES.LISP":12450-12973
"(defmethod skala-om-float ((värden list) nytt-golv nytt-tak) (if
(remove nil värden) (let (minv maxv) (setf minv (reduce...">) NIL) 407
(HEMLOCK::DEFN &OPTIONAL HEMLOCK::MSG)
HEMLOCK::DEFN: ((#<# # #xC13017E> . #<#>) . #<SOURCE-NOTE
*"ejs:environnement js 37.05.o;utilities;UTILITIES.LISP":12450-12973
"(defmethod skala-om-float ((värden list) nytt-golv nytt-tak) (if
(remove nil värden) (let (minv maxv) (setf minv (reduce...">)
HEMLOCK::MSG: NIL
#:WHOLE38944: ((#<# # #xC13017E> . #<#>) . #<SOURCE-NOTE
*"ejs:environnement js 37.05.o;utilities;UTILITIES.LISP":12450-12973
"(defmethod skala-om-float ((värden list) nytt-golv nytt-tak) (if
(remove nil värden) (let (minv maxv) (setf minv (reduce...">)
#:ARGS38945: #<CCL::DESTRUCTURE-STATE #xCCA6E>
#:REQ38946: (#<METHOD-DEFINITION-TYPE METHOD #xC13017E> .
#<STANDARD-METHOD UTILITAIRES:SKALA-OM-FLOAT #>)
#:WHOLE38947: (#<METHOD-DEFINITION-TYPE METHOD #xC13017E> .
#<STANDARD-METHOD UTILITAIRES:SKALA-OM-FLOAT #>)
#:ARGS38948: #<CCL::DESTRUCTURE-STATE #xCCA4E>
HEMLOCK::DEF-TYPE: #<METHOD-DEFINITION-TYPE METHOD #xC13017E>
#:REST38949: #<STANDARD-METHOD UTILITAIRES:SKALA-OM-FLOAT (LIST T T)>
HEMLOCK::FULL-NAME: #<STANDARD-METHOD UTILITAIRES:SKALA-OM-FLOAT
(LIST T T)>
#:REST38950: #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":12450-12973 "(defmethod skala-om-
float ((värden list) nytt-golv nytt-tak) (if (remove nil värden) (let
(minv maxv) (setf minv (reduce...">
HEMLOCK::SOURCE: #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":12450-12973 "(defmethod skala-om-
float ((värden list) nytt-golv nytt-tak) (if (remove nil värden) (let
(minv maxv) (setf minv (reduce...">
(34BC20) : 23 (GET-DEF-INFO-AND-GO-TO-IT "ut:skala-om-float"
#<Package "COMMON-LISP-USER">) 951
(STRING PACKAGE)
STRING: "ut:skala-om-float"
PACKAGE: #<Package "COMMON-LISP-USER">
HEMLOCK::FUN-NAME: UTILITAIRES:SKALA-OM-FLOAT
ERROR: NIL
#:G38832: (ERROR)
CCL::%HANDLERS%: ((ERROR) (ERROR #) (CONDITION #) (CONDITION #))
(34BC4C) : 24 (FUNCALL #'#<#<STANDARD-METHOD HI::EXECUTE-HEMLOCK-KEY
(HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC80199E> #<Key-Event M-.>) 975
(HI::VIEW HI::KEY)
HI::VIEW: #<HI:HEMLOCK-VIEW #xC80199E>
HI::KEY: #<Key-Event M-.>
HI::*SAVED-STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO*
#xC613F06>
*STANDARD-OUTPUT*: #<GUI::COCOA-LISTENER-OUTPUT-STREAM #xC64D4FE>
HI::MAIN-BINDING: #<Hemlock Command "Goto Definition">
HI::TRANSPARENT-BINDINGS: NIL
HI::*LAST-LAST-COMMAND-TYPE*: NIL
HI::*LAST-PREFIX-ARGUMENT*: NIL
(34BC98) : 25 (FUNCALL #'#<(:INTERNAL (HI::HANDLE-HEMLOCK-EVENT
(HI:HEMLOCK-VIEW T)))>) 479
NIL
#:G28228: #<RESTART HI::EXIT-EVENT-HANDLER #xCCB56>
#:G28224: (#<RESTART HI::EXIT-EVENT-HANDLER #xCCB56>)
CCL::%RESTARTS%: ((#<# # #xCCB56>) (#<# # #xCCC66> #<# # #xCCC8E>)
(#<# # #xCCFB6>))
#:G28229: #<Compiled-function (:INTERNAL #) (Non-Global) #x52888F6>
#:G28230: (ERROR #<Compiled-function # (Non-Global) #x52888F6>)
CCL::%HANDLERS%: ((ERROR #) (CONDITION #) (CONDITION #))
HI::KEY: #<Key-Event M-.>
HI::VIEW: #<HI:HEMLOCK-VIEW #xC80199E>
(34BCD4) : 26 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer
"Untitled 2"> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #xC807B2E>) 415
(GUI::BUFFER GUI::THUNK)
GUI::BUFFER: #<Hemlock Buffer "Untitled 2">
GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #xC807B2E>
GUI::OLD: NIL
(34BD04) : 27 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-
EVENT (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC80199E> #<Key-Event
M-.>) 783
(HI::VIEW HI::KEY)
HI::VIEW: #<HI:HEMLOCK-VIEW #xC80199E>
HI::KEY: #<Key-Event M-.>
#:ABORT-BREAK: #<RESTART ABORT-BREAK #xCCC8E>
#:ABORT: #<RESTART ABORT #xCCC66>
#:G28221: (#<RESTART ABORT #xCCC66> #<RESTART ABORT-BREAK #xCCC8E>)
CCL::%RESTARTS%: ((#<# # #xCCC66> #<# # #xCCC8E>) (#<# # #xCCFB6>))
HI::*CURRENT-VIEW*: #<HI:HEMLOCK-VIEW #xC80199E>
HI::*CURRENT-BUFFER*: #<Hemlock Buffer "Untitled 2">
HI::*NEXT-VIEW-START*: NIL
HI::TEXT-BUFFER: #<Hemlock Buffer "Untitled 2">
MOD: (221 17 . 17)
(34BD58) : 28 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD HI::HANDLE-
HEMLOCK-EVENT #> . 864130)) 1055
(CCL::MAGIC &REST CCL::ARGS)
CCL::MAGIC: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> .
864130)
CCL::ARGS: NIL
CCL::NEXT-METHODS: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)
CCL::ARGS: 864130
CDR: NIL
METHOD-FUNCTION: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT
(HI:HEMLOCK-VIEW T)>
#:G103440: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> .
864130)
#:G103441: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-
VIEW T)>
#:G103442: 864130
(34BDA0) : 29 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-
EVENT :AROUND (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC80199E> #<Key-
Event M-.>) 175
(GUI::VIEW GUI::EVENT)
GUI::VIEW: #<HI:HEMLOCK-VIEW #xC80199E>
GUI::EVENT: #<Key-Event M-.>
#:NEXT-METHOD-CONTEXT: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-
EVENT #> . 864130)
#:G45732: #<NS-AUTORELEASE-POOL <NSAutoreleasePool: 0x1d31c0>
(#x1D31C0)>
(34BDD4) : 30 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD
HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-
HEMLOCK-EVENT #>) 864130) 679
(CCL::METHODS CCL::ARGS)
CCL::METHODS: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND
#> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)
CCL::ARGS: 864130
CCL::CAR-METHS: #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND
(HI:HEMLOCK-VIEW T)>
CCL::CELL-2: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 864130)
CCL::MAGIC: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> .
864130)
#:G103376: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> .
864130)
#:G103377: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT :AROUND
(HI:HEMLOCK-VIEW T)>
#:G103378: 864130
(34BE14) : 31 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView
keyDown:]|> -268436182) 1215
(#:G45698)
#:G45698: -268436182
#:G45713: #<A Foreign Pointer [stack-allocated] #xBFFFF4A8>
#:G45699: #<A Foreign Pointer [stack-allocated] #xBFFFF4A8>
#:COMPILER-VAR: (NIL)
#:G45703: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-
[HemlockTextstorageTextView keyDown:]|) #xCCD66>
#:G45714: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xCCD66>)
CCL::%HANDLERS%: ((CONDITION #) (CONDITION #))
GUI::SELF: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0x88002000>
Frame = {{0.00, 0.00}, {585.00, 336.00}}, Bounds = {{0.00, 0.00},
{585.00, 336.00}}
Horizontally resizable: YES, Vertically resizable: YES
MinSize = {585.00, 336.00}, MaxSize = {10000000.00, 10000000.00}
(#x88002000)>
GUI::EVENT: #<NS-EVENT NSEvent: type=KeyDown loc=(0,392)
time=65682.4 flags=0xa0122 win=0x0 winNum=1808 ctxt=0x12687 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AE3390)>
GUI::VIEW: #<HI:HEMLOCK-VIEW #xC80199E>
GUI::QUOTE-P: NIL
GUI::HEMLOCK-KEY: #<Key-Event M-.>
(34BE54) : 32 (%PASCAL-FUNCTIONS% 73 -268436182) 343
(CCL::INDEX CCL::ARGS-PTR-FIXNUM)
CCL::INDEX: 73
CCL::ARGS-PTR-FIXNUM: -268436182
CCL::LISP-FUNCTION: #<Compiled-function GUI::|-
[HemlockTextstorageTextView keyDown:]| (Non-Global) #x54D51BE>
WITHOUT-INTERRUPTS: NIL
CCL::*CALLBACK-TRACE-P*: NIL
(34BE9C) : 33 (FUNCALL #'#<Anonymous Function #x4D73CCE> #<A Foreign
Pointer [stack-allocated] (:* #) #xBFFFF900> #<A Foreign Pointer
#x92DF24B8> #<NS-EVENT NSEvent: type=KeyDown loc=(0,392) time=65682.4
flags=0xa0122 win=0x0 winNum=1808 ctxt=0x12687 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AE3390)>) 407
(#:G6384 #:G6385 CCL::ARG0)
#:G6384: #<A Foreign Pointer [stack-allocated] (:* #) #xBFFFF900>
#:G6385: #<A Foreign Pointer #x92DF24B8>
CCL::ARG0: #<NS-EVENT NSEvent: type=KeyDown loc=(0,392)
time=65682.4 flags=0xa0122 win=0x0 winNum=1808 ctxt=0x12687 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AE3390)>
(34BEB0) : 34 (%CALL-NEXT-OBJC-METHOD #<LISP-APPLICATION
<LispApplication: 0x80fc00> (#x80FC00)> #<OBJC:OBJC-CLASS GUI::LISP-
APPLICATION (#x1148B0)> #<A Foreign Pointer #x92DF24B8> (:VOID :ID)
#<NS-EVENT NSEvent: type=KeyDown loc=(0,392) time=65682.4
flags=0xa0122 win=0x0 winNum=1808 ctxt=0x12687 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AE3390)>) 1191
(CCL::SELF CLASS CCL::SELECTOR CCL::SIG &REST CCL::ARGS)
CCL::SELF: #<LISP-APPLICATION <LispApplication: 0x80fc00>
(#x80FC00)>
CLASS: #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x1148B0)>
CCL::SELECTOR: #<A Foreign Pointer #x92DF24B8>
CCL::SIG: (:VOID :ID)
CCL::ARGS: (#<NS-EVENT NSEvent: type=KeyDown loc=(0,392)
time=65682.4 flags=0xa0122 win=0x0 winNum=1808 ctxt=0x12687 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AE3390)>)
CCL::S: #<A Foreign Pointer [stack-allocated] (:* #) #xBFFFF900>
CCL::SIGINFO: #S(CCL::OBJC-METHOD-SIGNATURE-INFO :TYPE-SIGNATURE
(:VOID :ID) :FUNCTION #<Anonymous Function #x4D73AAE> ...)
FUNCTION: #<Anonymous Function #x4D73CCE>
#:G2753: #<A Foreign Pointer [stack-allocated] (:* #) #xBFFFF890>
#:G2754: -268435942
(34BF00) : 35 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|>
-268435870) 919
(#:G24204)
#:G24204: -268435870
#:G24219: #<A Foreign Pointer [stack-allocated] #xBFFFF988>
#:G24205: #<A Foreign Pointer [stack-allocated] #xBFFFF988>
#:COMPILER-VAR: (NIL)
#:G24209: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-
[LispApplication sendEvent:]|) #xCCE86>
#:G24220: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xCCE86>)
CCL::%HANDLERS%: ((CONDITION #))
GUI::SELF: #<LISP-APPLICATION <LispApplication: 0x80fc00> (#x80FC00)>
GUI::E: #<NS-EVENT NSEvent: type=KeyDown loc=(0,392) time=65682.4
flags=0xa0122 win=0x0 winNum=1808 ctxt=0x12687 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AE3390)>
CCL::ARGS: (#<NS-EVENT NSEvent: type=KeyDown loc=(0,392)
time=65682.4 flags=0xa0122 win=0x0 winNum=1808 ctxt=0x12687 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AE3390)>)
(34BF38) : 36 (%PASCAL-FUNCTIONS% 15 -268435870) 343
(CCL::INDEX CCL::ARGS-PTR-FIXNUM)
CCL::INDEX: 15
CCL::ARGS-PTR-FIXNUM: -268435870
CCL::LISP-FUNCTION: #<Compiled-function GUI::|-[LispApplication
sendEvent:]| (Non-Global) #x5180DF6>
WITHOUT-INTERRUPTS: NIL
CCL::*CALLBACK-TRACE-P*: NIL
(34BF80) : 37 (FUNCALL #'#<Anonymous Function #x4CB01FE> #<LISP-
APPLICATION <LispApplication: 0x80fc00> (#x80FC00)> #S(CCL::OBJC-SELECTOR
:NAME "run" :%SEL #<A Foreign Pointer #x92E9CA24>)) 199
(#:G3305 #:G3306)
#:G3305: #<LISP-APPLICATION <LispApplication: 0x80fc00> (#x80FC00)>
#:G3306: #S(CCL::OBJC-SELECTOR :NAME "run" :%SEL #<A Foreign
Pointer #x92E9CA24>)
(34BF90) : 38 (FUNCALL #'#<(:OBJC-DISPATCH NEXTSTEP-FUNCTIONS:|
run|)> ???) 983
NIL
(34BFC8) : 39 (EVENT-LOOP NIL) 383
(&OPTIONAL GUI::END-TEST)
GUI::END-TEST: NIL
GUI::APP: #<LISP-APPLICATION <LispApplication: 0x80fc00> (#x80FC00)>
GUI::THREAD: #<APPKIT-PROCESS Initial(0) [Active] #xC05C44E>
#:ABORT: #<RESTART ABORT #xCCFB6>
#:G26660: (#<RESTART ABORT #xCCFB6>)
CCL::%RESTARTS%: ((#<# # #xCCFB6>))
Le 4 avr. 10 à 09:15, Walker Sigismund a écrit :
>
> Obviously I am starting off with inattention, I blame failure to
> make a pot of coffee first thing. Doing it afresh with apologies
> (please make coffee first).
>
>
> For the third and hopefully last time--I have tried it this time and
> it works for me from a fresh copy of CCL--here is an example file
> for debugging purposes of the "sky is falling" problem.
>
> First place the file on your desktop (its just any old file created
> in MCL).
>
> <UrWerk.lisp>
>
>
>
> Second load it (load "/Users/muse/Desktop/UrWerk.lisp")
>
> Third do meta dot on one of the containing definitions and the "Sky
> will fall": Urwerk-file-create-date
>
>
>
>
Joakim Sandgren
joakim sandgren musik
42, rue de Maubeuge
75009 Paris
France
+33 (0)1 45 26 43 90
info at joakimsandgren.com
http://www.joakimsandgren.com
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20100404/ab59dca0/attachment.htm>
More information about the Openmcl-devel
mailing list