[Openmcl-devel] ...the sky is falling
Joakim Sandgren
joakim at joakimsandgren.com
Fri Apr 2 14:43:22 PDT 2010
here is one console :
sincerely
joakim
Lisp error: "Array index 215 out of bounds for #(1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392) ."
(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 #xC86A7F6>) 1599
(CONDITION)
CONDITION: #<SIMPLE-ERROR #xC86A7F6>
GUI::EMSG: "Array index 215 out of bounds for #(1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392 1392
1392) ."
#: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 #xC83692E>
#<SIMPLE-ERROR #xC86A7F6> T) 55
(GUI::VIEW CONDITION GUI::DEBUG-P)
GUI::VIEW: #<HI:HEMLOCK-VIEW #xC83692E>
CONDITION: #<SIMPLE-ERROR #xC86A7F6>
GUI::DEBUG-P: T
(34B850) : 3 (LISP-ERROR-ERROR-HANDLER #<SIMPLE-ERROR
#xC86A7F6> :DEBUG-P T) 399
(CONDITION &KEY :DEBUG-P)
CONDITION: #<SIMPLE-ERROR #xC86A7F6>
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 #xC86A7F6>) 903
(CONDITION &REST CCL::ARGS)
CONDITION: #<SIMPLE-ERROR #xC86A7F6>
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 #xC86A7F6> (215 #(1392 1392 1392
1392 1392 ...)) 863834) 119
(CONDITION CCL::ARGS CCL::ERROR-POINTER)
CONDITION: #<SIMPLE-ERROR #xC86A7F6>
CCL::ARGS: (215 #(1392 1392 1392 1392 1392 ...))
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 85 ...)
#<Compiled-function SVREF #x40FDE7E>) 232
(HI::VEC HI::ACCESS-FUN)
HI::VEC: #(40 68 69 70 85 ...)
HI::ACCESS-FUN: #<Compiled-function SVREF #x40FDE7E>
HI::JUMPS: #(1392 1392 1392 1392 1392 ...)
HI::LEN: 1392
#:G31365: 1392
HI::I: 215
Search-Pattern for
(34B9A4) : 11 (FUNCALL #'#<Anonymous Function #x5312366> :FORWARD
"(defun skala-om-till-summa-med-minimivarde-special2 (lista summa
minimivarde)
(let (res rest (intlista (höj-till-noll lista)))
(if (< summa (* (length intlista) minimivarde))
(return-from skala-om-till-summa-med-minimivarde-special2
(skala-om-till-summa-med-minimivarde-special1 lista summa 1))
(if (= summa (* (length intlista) minimivarde))
(dotimes (i (/ summa minimivarde) res)
(push minimivarde res))
(let* ((gammal-summa (reduce #'+ intlista))
(faktor (/ summa gammal-summa))
)
(setf rest 0)
(setf res (map 'list #'(lambda (elt)
(let* ((ra (+ (*
faktor elt) rest))
(ra-avrundad
(floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA
LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!
(if (<= ra-
avrundad (1- minimivarde))
(setf ra-
avrundad minimivarde))
(setf rest (- ra
ra-avrundad))
ra-avrundad))
intlista)))))
(if (< summa (reduce #'+ res)) (skala-om-till-summa-med-
minimivarde-special2 res summa minimivarde) r" #<Hemlock forward
string-insensitive"(defun skala-om-till-summa-med-minimivarde-special2
(lista summa minimivarde)
(let (res rest (intlista (höj-till-noll lista)))
(if (< summa (* (length intlista) minimivarde))
(return-from skala-om-till-summa-med-minimivarde-special2
(skala-om-till-summa-med-minimivarde-special1 lista summa 1))
(if (= summa (* (length intlista) minimivarde))
(dotimes (i (/ summa minimivarde) res)
(push minimivarde res))
(let* ((gammal-summa (reduce #'+ intlista))
(faktor (/ summa gammal-summa))
)
(setf rest 0)
(setf res (map 'list #'(lambda (elt)
(let* ((ra (+ (*
faktor elt) rest))
(ra-avrundad
(floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA
LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!
(if (<= ra-
avrundad (1- minimivarde))
(setf ra-
avrundad minimivarde))
(setf rest (- ra
ra-avrundad))
ra-avrundad))
intlista)))))
(if (< summa (reduce #'+ res)) (skala-om-till-summa-med-
minimivarde-special2 res summa minimivarde) r">
) 1143
(HI::DIRECTION HI::PATTERN HI::OLD)
HI::DIRECTION: :FORWARD
HI::PATTERN: "(defun skala-om-till-summa-med-minimivarde-special2
(lista summa minimivarde)
(let (res rest (intlista (höj-till-noll lista)))
(if (< summa (* (length intlista) minimivarde))
(return-from skala-om-till-summa-med-minimivarde-special2
(skala-om-till-summa-med-minimivarde-special1 lista summa 1))
(if (= summa (* (length intlista) minimivarde))
(dotimes (i (/ summa minimivarde) res)
(push minimivarde res))
(let* ((gammal-summa (reduce #'+ intlista))
(faktor (/ summa gammal-summa))
)
(setf rest 0)
(setf res (map 'list #'(lambda (elt)
(let* ((ra (+ (*
faktor elt) rest))
(ra-avrundad
(floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA
LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!
(if (<= ra-
avrundad (1- minimivarde))
(setf ra-
avrundad minimivarde))
(setf rest (- ra
ra-avrundad))
ra-avrundad))
intlista)))))
(if (< summa (reduce #'+ res)) (skala-om-till-summa-med-
minimivarde-special2 res summa minimivarde) r"
HI::OLD: #<Hemlock forward string-insensitive Search-Pattern for
"(defun skala-om-till-summa-med-minimivarde-special2 (lista summa
minimivarde)
(let (res rest (intlista (höj-till-noll lista)))
(if (< summa (* (length intlista) minimivarde))
(return-from skala-om-till-summa-med-minimivarde-special2
(skala-om-till-summa-med-minimivarde-special1 lista summa 1))
(if (= summa (* (length intlista) minimivarde))
(dotimes (i (/ summa minimivarde) res)
(push minimivarde res))
(let* ((gammal-summa (reduce #'+ intlista))
(faktor (/ summa gammal-summa))
)
(setf rest 0)
(setf res (map 'list #'(lambda (elt)
(let* ((ra (+ (*
faktor elt) rest))
(ra-avrundad
(floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA
LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!
(if (<= ra-
avrundad (1- minimivarde))
(setf ra-
avrundad minimivarde))
(setf rest (- ra
ra-avrundad))
ra-avrundad))
intlista)))))
(if (< summa (reduce #'+ res)) (skala-om-till-summa-med-
minimivarde-special2 res summa minimivarde) r">
HI::FOLDED-STRING: "(DEFUN SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-
SPECIAL2 (LISTA SUMMA MINIMIVARDE)
(LET (RES REST (INTLISTA (HÖJ-TILL-NOLL LISTA)))
(IF (< SUMMA (* (LENGTH INTLISTA) MINIMIVARDE))
(RETURN-FROM SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2
(SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL1 LISTA SUMMA 1))
(IF (= SUMMA (* (LENGTH INTLISTA) MINIMIVARDE))
(DOTIMES (I (/ SUMMA MINIMIVARDE) RES)
(PUSH MINIMIVARDE RES))
(LET* ((GAMMAL-SUMMA (REDUCE #'+ INTLISTA))
(FAKTOR (/ SUMMA GAMMAL-SUMMA))
)
(SETF REST 0)
(SETF RES (MAP 'LIST #'(LAMBDA (ELT)
(LET* ((RA (+ (*
FAKTOR ELT) REST))
(RA-AVRUNDAD
(FLOOR RA))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA
LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!
(IF (<= RA-
AVRUNDAD (1- MINIMIVARDE))
(SETF RA-
AVRUNDAD MINIMIVARDE))
(SETF REST (- RA
RA-AVRUNDAD))
RA-AVRUNDAD))
INTLISTA)))))
(IF (< SUMMA (REDUCE #'+ RES)) (SKALA-OM-TILL-SUMMA-MED-
MINIMIVARDE-SPECIAL2 RES SUMMA MINIMIVARDE) R"
HI::HASHED-STRING: #(40 68 69 70 85 ...)
(34B9C4) : 12 (MOVE-TO-SOURCE-NOTE #<SOURCE-NOTE *"ejs:environnement
js 37.05.o;utilities;UTILITIES.LISP":16964-18361 "(defun skala-om-till-
summa-med-minimivarde-special2 (lista summa minimivarde) (let (res
rest (intlista (höj-till-noll li...">) 503
(HEMLOCK::SOURCE)
HEMLOCK::SOURCE: #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":16964-18361 "(defun skala-om-till-
summa-med-minimivarde-special2 (lista summa minimivarde) (let (res
rest (intlista (höj-till-noll li...">
HEMLOCK::START-POS: 16964
HEMLOCK::FULL-TEXT: "(defun skala-om-till-summa-med-minimivarde-
special2 (lista summa minimivarde)
(let (res rest (intlista (höj-till-noll lista)))
(if (< summa (* (length intlista) minimivarde))
(return-from skala-om-till-summa-med-minimivarde-special2
(skala-om-till-summa-med-minimivarde-special1 lista summa 1))
(if (= summa (* (length intlista) minimivarde))
(dotimes (i (/ summa minimivarde) res)
(push minimivarde res))
(let* ((gammal-summa (reduce #'+ intlista))
(faktor (/ summa gammal-summa))
)
(setf rest 0)
(setf res (map 'list #'(lambda (elt)
(let* ((ra (+ (*
faktor elt) rest))
(ra-avrundad
(floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA
LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!
(if (<= ra-
avrundad (1- minimivarde))
(setf ra-
avrundad minimivarde))
(setf rest (- ra
ra-avrundad))
ra-avrundad))
intlista)))))
(if (< summa (reduce #'+ res)) (skala-om-till-summa-med-
minimivarde-special2 res summa minimivarde) r"
HEMLOCK::PATTERN: NIL
HEMLOCK::OFFSET: 0
HEMLOCK::TEMP-MARK: #<Hemlock Mark "^(defun skala-om-till-summa-med-
minimivarde-special2 (lista summa minimivarde)">
HEMLOCK-INTERFACE:MARK: #<Hemlock Mark "^(defun skala-om-till-summa-
med-minimivarde-special2 (lista summa minimivarde)">
STRING: "(defun skala-om-till-summa-med-minimivarde-special2 (lista
summa minimivarde)
(let (res rest (intlista (höj-till-noll lista)))
(if (< summa (* (length intlista) minimivarde))
(return-from skala-om-till-summa-med-minimivarde-special2
(skala-om-till-summa-med-minimivarde-special1 lista summa 1))
(if (= summa (* (length intlista) minimivarde))
(dotimes (i (/ summa minimivarde) res)
(push minimivarde res))
(let* ((gammal-summa (reduce #'+ intlista))
(faktor (/ summa gammal-summa))
)
(setf rest 0)
(setf res (map 'list #'(lambda (elt)
(let* ((ra (+ (*
faktor elt) rest))
(ra-avrundad
(floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA
LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!
(if (<= ra-
avrundad (1- minimivarde))
(setf ra-
avrundad minimivarde))
(setf rest (- ra
ra-avrundad))
ra-avrundad))
intlista)))))
(if (< summa (reduce #'+ res)) (skala-om-till-summa-med-
minimivarde-special2 res summa minimivarde) r"
(34B9EC) : 13 (FIND-DEFINITION-IN-BUFFER #<FUNCTION-DEFINITION-TYPE
FUNCTION #xC130E8E> UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-
SPECIAL2 #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":16964-18361 "(defun skala-om-till-
summa-med-minimivarde-special2 (lista summa minimivarde) (let (res
rest (intlista (höj-till-noll li...">) 87
(HEMLOCK::DEF-TYPE HEMLOCK::FULL-NAME HEMLOCK::SOURCE)
HEMLOCK::DEF-TYPE: #<FUNCTION-DEFINITION-TYPE FUNCTION #xC130E8E>
HEMLOCK::FULL-NAME: UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-
MINIMIVARDE-SPECIAL2
HEMLOCK::SOURCE: #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":16964-18361 "(defun skala-om-till-
summa-med-minimivarde-special2 (lista summa minimivarde) (let (res
rest (intlista (höj-till-noll li...">
(34BA00) : 14 (FUNCALL #'#<#<STANDARD-METHOD HI::EXECUTE-HEMLOCK-KEY
(HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC83692E> #<COMPILED-LEXICAL-
CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION HEMLOCK::EDIT-DEFINITION)
#xC78DDF6>) 287
(HI::VIEW HI::KEY)
HI::VIEW: #<HI:HEMLOCK-VIEW #xC83692E>
HI::KEY: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-
ACTION HEMLOCK::EDIT-DEFINITION) #xC78DDF6>
HI::*SAVED-STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO*
#xC613F06>
*STANDARD-OUTPUT*: #<GUI::COCOA-LISTENER-OUTPUT-STREAM #xC64D506>
(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) #xC78DDF6>
HI::VIEW: #<HI:HEMLOCK-VIEW #xC83692E>
(34BA68) : 16 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer
"UTILITIES.LISP /Users/js/ejs/environnement js 37.05.o/utilities/">
#<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #xC854DC6>) 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 #) #xC854DC6>
GUI::OLD: #<Hemlock Buffer "Untitled 2">
(34BA98) : 17 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-
EVENT (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC83692E> #<COMPILED-
LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION HEMLOCK::EDIT-
DEFINITION) #xC78DDF6>) 783
(HI::VIEW HI::KEY)
HI::VIEW: #<HI:HEMLOCK-VIEW #xC83692E>
HI::KEY: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-
ACTION HEMLOCK::EDIT-DEFINITION) #xC78DDF6>
#: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 #xC83692E>
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: (53 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 #xC83692E>
#<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION
HEMLOCK::EDIT-DEFINITION) #xC78DDF6>) 175
(GUI::VIEW GUI::EVENT)
GUI::VIEW: #<HI:HEMLOCK-VIEW #xC83692E>
GUI::EVENT: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-
ACTION HEMLOCK::EDIT-DEFINITION) #xC78DDF6>
#:NEXT-METHOD-CONTEXT: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-
EVENT #> . 863976)
#:G45732: #<NS-AUTORELEASE-POOL <NSAutoreleasePool: 0x3a56540>
(#x3A56540)>
(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) #xC78DDC6> 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) #xC78DDC6>
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)> ((#<# # #xC130E8E> . UTILITAIRES:SKALA-OM-
TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2) . #<SOURCE-NOTE
*"ejs:environnement js 37.05.o;utilities;UTILITIES.LISP":16964-18361
"(defun skala-om-till-summa-med-minimivarde-special2 (lista summa
minimivarde) (let (res rest (intlista (höj-till-noll li...">) NIL) 407
(HEMLOCK::DEFN &OPTIONAL HEMLOCK::MSG)
HEMLOCK::DEFN: ((#<# # #xC130E8E> . UTILITAIRES:SKALA-OM-TILL-
SUMMA-MED-MINIMIVARDE-SPECIAL2) . #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":16964-18361 "(defun skala-om-till-
summa-med-minimivarde-special2 (lista summa minimivarde) (let (res
rest (intlista (höj-till-noll li...">)
HEMLOCK::MSG: NIL
#:WHOLE38944: ((#<# # #xC130E8E> . UTILITAIRES:SKALA-OM-TILL-SUMMA-
MED-MINIMIVARDE-SPECIAL2) . #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":16964-18361 "(defun skala-om-till-
summa-med-minimivarde-special2 (lista summa minimivarde) (let (res
rest (intlista (höj-till-noll li...">)
#:ARGS38945: #<CCL::DESTRUCTURE-STATE #xCCA6E>
#:REQ38946: (#<FUNCTION-DEFINITION-TYPE FUNCTION #xC130E8E> .
UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2)
#:WHOLE38947: (#<FUNCTION-DEFINITION-TYPE FUNCTION #xC130E8E> .
UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2)
#:ARGS38948: #<CCL::DESTRUCTURE-STATE #xCCA4E>
HEMLOCK::DEF-TYPE: #<FUNCTION-DEFINITION-TYPE FUNCTION #xC130E8E>
#:REST38949: UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2
HEMLOCK::FULL-NAME: UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-
SPECIAL2
#:REST38950: #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":16964-18361 "(defun skala-om-till-
summa-med-minimivarde-special2 (lista summa minimivarde) (let (res
rest (intlista (höj-till-noll li...">
HEMLOCK::SOURCE: #<SOURCE-NOTE *"ejs:environnement js
37.05.o;utilities;UTILITIES.LISP":16964-18361 "(defun skala-om-till-
summa-med-minimivarde-special2 (lista summa minimivarde) (let (res
rest (intlista (höj-till-noll li...">
(34BC20) : 23 (GET-DEF-INFO-AND-GO-TO-IT "ut:skala-om-till-summa-med-
minimivarde-special2" #<Package "COMMON-LISP-USER">) 951
(STRING PACKAGE)
STRING: "ut:skala-om-till-summa-med-minimivarde-special2"
PACKAGE: #<Package "COMMON-LISP-USER">
HEMLOCK::FUN-NAME: UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-
SPECIAL2
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 #xC78593E> #<Key-Event M-.>) 975
(HI::VIEW HI::KEY)
HI::VIEW: #<HI:HEMLOCK-VIEW #xC78593E>
HI::KEY: #<Key-Event M-.>
HI::*SAVED-STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO*
#xC613F06>
*STANDARD-OUTPUT*: #<GUI::COCOA-LISTENER-OUTPUT-STREAM #xC64D506>
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 #xC78593E>
(34BCD4) : 26 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer
"Untitled 2"> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #xC78E1E6>) 415
(GUI::BUFFER GUI::THUNK)
GUI::BUFFER: #<Hemlock Buffer "Untitled 2">
GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #xC78E1E6>
GUI::OLD: NIL
(34BD04) : 27 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-
EVENT (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC78593E> #<Key-Event
M-.>) 783
(HI::VIEW HI::KEY)
HI::VIEW: #<HI:HEMLOCK-VIEW #xC78593E>
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 #xC78593E>
HI::*CURRENT-BUFFER*: #<Hemlock Buffer "Untitled 2">
HI::*NEXT-VIEW-START*: NIL
HI::TEXT-BUFFER: #<Hemlock Buffer "Untitled 2">
MOD: (50 40 . 40)
(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 #xC78593E> #<Key-
Event M-.>) 175
(GUI::VIEW GUI::EVENT)
GUI::VIEW: #<HI:HEMLOCK-VIEW #xC78593E>
GUI::EVENT: #<Key-Event M-.>
#:NEXT-METHOD-CONTEXT: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-
EVENT #> . 864130)
#:G45732: #<NS-AUTORELEASE-POOL <NSAutoreleasePool: 0x1d0800>
(#x1D0800)>
(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: 0x1ead000>
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}
(#x1EAD000)>
GUI::EVENT: #<NS-EVENT NSEvent: type=KeyDown loc=(0,392)
time=9053.4 flags=0xa0122 win=0x0 winNum=700 ctxt=0x12d77 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AA40B0)>
GUI::VIEW: #<HI:HEMLOCK-VIEW #xC78593E>
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=9053.4
flags=0xa0122 win=0x0 winNum=700 ctxt=0x12d77 chars="" unmodchars="."
repeat=0 keyCode=43 (#x3AA40B0)>) 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=9053.4 flags=0xa0122 win=0x0 winNum=700 ctxt=0x12d77 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AA40B0)>
(34BEB0) : 34 (%CALL-NEXT-OBJC-METHOD #<LISP-APPLICATION
<LispApplication: 0x80d000> (#x80D000)> #<OBJC:OBJC-CLASS GUI::LISP-
APPLICATION (#x114850)> #<A Foreign Pointer #x92DF24B8> (:VOID :ID)
#<NS-EVENT NSEvent: type=KeyDown loc=(0,392) time=9053.4 flags=0xa0122
win=0x0 winNum=700 ctxt=0x12d77 chars="" unmodchars="." repeat=0
keyCode=43 (#x3AA40B0)>) 1191
(CCL::SELF CLASS CCL::SELECTOR CCL::SIG &REST CCL::ARGS)
CCL::SELF: #<LISP-APPLICATION <LispApplication: 0x80d000>
(#x80D000)>
CLASS: #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x114850)>
CCL::SELECTOR: #<A Foreign Pointer #x92DF24B8>
CCL::SIG: (:VOID :ID)
CCL::ARGS: (#<NS-EVENT NSEvent: type=KeyDown loc=(0,392)
time=9053.4 flags=0xa0122 win=0x0 winNum=700 ctxt=0x12d77 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AA40B0)>)
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: 0x80d000> (#x80D000)>
GUI::E: #<NS-EVENT NSEvent: type=KeyDown loc=(0,392) time=9053.4
flags=0xa0122 win=0x0 winNum=700 ctxt=0x12d77 chars="" unmodchars="."
repeat=0 keyCode=43 (#x3AA40B0)>
CCL::ARGS: (#<NS-EVENT NSEvent: type=KeyDown loc=(0,392)
time=9053.4 flags=0xa0122 win=0x0 winNum=700 ctxt=0x12d77 chars=""
unmodchars="." repeat=0 keyCode=43 (#x3AA40B0)>)
(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: 0x80d000> (#x80D000)> #S(CCL::OBJC-SELECTOR
:NAME "run" :%SEL #<A Foreign Pointer #x92E9CA24>)) 199
(#:G3305 #:G3306)
#:G3305: #<LISP-APPLICATION <LispApplication: 0x80d000> (#x80D000)>
#: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: 0x80d000> (#x80D000)>
GUI::THREAD: #<APPKIT-PROCESS Initial(0) [Active] #xC05C44E>
#:ABORT: #<RESTART ABORT #xCCFB6>
#:G26660: (#<RESTART ABORT #xCCFB6>)
CCL::%RESTARTS%: ((#<# # #xCCFB6>))
Le 2 avr. 10 à 23:39, Gary Byers a écrit :
>
>
> On Fri, 2 Apr 2010, Joakim Sandgren wrote:
>
>> Hi,I did a mail here some time ago about the falling sky when I did
>> the
>> command shift alt . to find the source code of a function.
>> then I had the "sky" all the time.
>> But if I do take the file, open it, select all, copy,, make a new
>> doument
>> paste it all there and save it, and load that file the find source
>> command
>> works.
>> Good! But why ??
>
> It's too bad that there wasn't any backtrace information or anything
> else
> that would have maybe enabled someone to have identified the problem
> in the
> first place.
>
>> so I do have to go through my project in this way to "port" it to
>> clozure ?
>
> Either that, or provide backtraces and enough information so that
> someone
> could reproduce and understand and fix the problem.
>
> If you prefer the trial-and-error approach, fine, but it doesn't
> seem like
> a good use of your time or anyone else's.
>
>> sincerely
>> joakim
>> 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
>>
>
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/20100402/3a152c9b/attachment.htm>
More information about the Openmcl-devel
mailing list