<html><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">here is one console :<div>sincerely</div><div>joakim<br><div><div><br></div><div><div>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) ."</div><div> (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</div><div> (&KEY :CONTEXT :PROCESS :ORIGIN :DETAILED-P :COUNT :START-FRAME-NUMBER :STREAM :PRINT-LEVEL :PRINT-LENGTH :SHOW-INTERNAL-FRAMES :FORMAT)</div><div> <a href="CCL::CONTEXT">CCL::CONTEXT</a>: NIL</div><div> PROCESS: NIL</div><div> <a href="CCL::ORIGIN">CCL::ORIGIN</a>: NIL</div><div> <a href="CCL::DETAILED-P">CCL::DETAILED-P</a>: T</div><div> COUNT: 536870911</div><div> <a href="CCL::START-FRAME-NUMBER">CCL::START-FRAME-NUMBER</a>: 0</div><div> STREAM: #<SYNONYM-STREAM to *TERMINAL-IO* #xC613EC6></div><div> <a href="CCL::PRINT-LEVEL">CCL::PRINT-LEVEL</a>: 2</div><div> <a href="CCL::PRINT-LENGTH">CCL::PRINT-LENGTH</a>: 5</div><div> <a href="CCL::SHOW-INTERNAL-FRAMES">CCL::SHOW-INTERNAL-FRAMES</a>: NIL</div><div> FORMAT: :TRADITIONAL</div><div><br></div><div> <a href="CCL::FRAME-NUMBER">CCL::FRAME-NUMBER</a>: 0</div><div> *BACKTRACE-PRINT-LEVEL*: 2</div><div> *BACKTRACE-PRINT-LENGTH*: 5</div><div> *BACKTRACE-FORMAT*: :TRADITIONAL</div><div> *STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #xC613EC6></div><div> *PRINT-CIRCLE*: NIL</div><div><br></div><div> (34B818) : 1 (MAYBE-LOG-CALLBACK-ERROR #<SIMPLE-ERROR #xC86A7F6>) 1599</div><div> (CONDITION)</div><div> CONDITION: #<SIMPLE-ERROR #xC86A7F6></div><div><br></div><div> 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) ."</div><div> #:G24021: (ERROR)</div><div> CCL::%HANDLERS%: ((ERROR) (ERROR) (ERROR) (ERROR #) (CONDITION #) ...)</div><div><br></div><div> (34B83C) : 2 (FUNCALL #'#<#<STANDARD-METHOD HEMLOCK-EXT:REPORT-HEMLOCK-ERROR (HI:HEMLOCK-VIEW T T)>> #<HI:HEMLOCK-VIEW #xC83692E> #<SIMPLE-ERROR #xC86A7F6> T) 55</div><div> (GUI::VIEW CONDITION GUI::DEBUG-P)</div><div> GUI::VIEW: #<HI:HEMLOCK-VIEW #xC83692E></div><div> CONDITION: #<SIMPLE-ERROR #xC86A7F6></div><div> GUI::DEBUG-P: T</div><div><br></div><div><br></div><div><br></div><div> (34B850) : 3 (LISP-ERROR-ERROR-HANDLER #<SIMPLE-ERROR #xC86A7F6> :DEBUG-P T) 399</div><div> (CONDITION &KEY :DEBUG-P)</div><div> CONDITION: #<SIMPLE-ERROR #xC86A7F6></div><div> HI::DEBUG-P: T</div><div><br></div><div> *STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #xC613F06></div><div> #:G28057: (ERROR)</div><div> CCL::%HANDLERS%: ((ERROR) (ERROR) (ERROR #) (CONDITION #) (CONDITION #))</div><div><br></div><div> (34B880) : 4 (SIGNAL #<SIMPLE-ERROR #xC86A7F6>) 903</div><div> (CONDITION &REST <a href="CCL::ARGS)">CCL::ARGS)</a></div><div> CONDITION: #<SIMPLE-ERROR #xC86A7F6></div><div> <a href="CCL::ARGS">CCL::ARGS</a>: NIL</div><div><br></div><div> CCL::%HANDLERS%: ((ERROR) (ERROR #) (CONDITION #) (CONDITION #))</div><div> <a href="CCL::TAG">CCL::TAG</a>: (ERROR #<Compiled-function # (Non-Global) #x52888F6>)</div><div> <a href="CCL::HANDLERS">CCL::HANDLERS</a>: (ERROR #<Compiled-function # (Non-Global) #x52888F6>)</div><div> <a href="CCL::FN">CCL::FN</a>: #<Compiled-function (:INTERNAL #) (Non-Global) #x52888F6></div><div><br></div><div> (34B8A8) : 5 (%ERROR #<SIMPLE-ERROR #xC86A7F6> (215 #(1392 1392 1392 1392 1392 ...)) 863834) 119</div><div> (CONDITION <a href="CCL::ARGS">CCL::ARGS</a> <a href="CCL::ERROR-POINTER)">CCL::ERROR-POINTER)</a></div><div> CONDITION: #<SIMPLE-ERROR #xC86A7F6></div><div> <a href="CCL::ARGS">CCL::ARGS</a>: (215 #(1392 1392 1392 1392 1392 ...))</div><div> <a href="CCL::ERROR-POINTER">CCL::ERROR-POINTER</a>: 863834</div><div><br></div><div><br></div><div><br></div><div> (34B8BC) : 6 (FUNCALL #'#<(:INTERNAL CCL::%XERR-DISP)>) 2399</div><div> NIL</div><div><br></div><div> <a href="CCL::FRAME-PTR">CCL::FRAME-PTR</a>: 863834</div><div> <a href="CCL::FN">CCL::FN</a>: #<Compiled-function HI::COMPUTE-BOYER-MOORE-JUMPS #x53058E6></div><div> <a href="CCL::OP0">CCL::OP0</a>: 205</div><div> <a href="CCL::OP1">CCL::OP1</a>: 200</div><div> <a href="CCL::OP2">CCL::OP2</a>: 97</div><div> <a href="CCL::SKIP">CCL::SKIP</a>: -1</div><div> <a href="CCL::XP">CCL::XP</a>: #<A Foreign Pointer #xBFFFF370></div><div> <a href="CCL::XCF">CCL::XCF</a>: #<A Foreign Pointer #x34B968></div><div><br></div><div> (34B8E4) : 7 (FUNCALL-WITH-ERROR-REENTRY-DETECTION #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #xCC7B6>) 183</div><div> (<a href="CCL::THUNK">CCL::THUNK</a>)</div><div> <a href="CCL::THUNK">CCL::THUNK</a>: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #xCC7B6></div><div><br></div><div> COUNT: 0</div><div> <a href="CCL::*ERROR-REENTRY-COUNT*">CCL::*ERROR-REENTRY-COUNT*</a>: 0</div><div><br></div><div> (34B904) : 8 (FUNCALL #'#<CCL::%XERR-DISP> -268436758) 495</div><div> (#:G139934)</div><div> #:G139934: -268436758</div><div><br></div><div> #:G139943: #<A Foreign Pointer [stack-allocated] #xBFFFEBA8></div><div> <a href="CCL::XP">CCL::XP</a>: #<A Foreign Pointer #xBFFFF370></div><div> <a href="CCL::XCF">CCL::XCF</a>: #<A Foreign Pointer #x34B968></div><div> #:G139944: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL CCL::%XERR-DISP) #xCC7B6></div><div><br></div><div> (34B920) : 9 (%PASCAL-FUNCTIONS% 2 -268436758) 343</div><div> (<a href="CCL::INDEX">CCL::INDEX</a> <a href="CCL::ARGS-PTR-FIXNUM)">CCL::ARGS-PTR-FIXNUM)</a></div><div> <a href="CCL::INDEX">CCL::INDEX</a>: 2</div><div> <a href="CCL::ARGS-PTR-FIXNUM">CCL::ARGS-PTR-FIXNUM</a>: -268436758</div><div><br></div><div> <a href="CCL::LISP-FUNCTION">CCL::LISP-FUNCTION</a>: #<Compiled-function CCL::%XERR-DISP (Non-Global) #x44FC4A6></div><div> WITHOUT-INTERRUPTS: NIL</div><div> <a href="CCL::*CALLBACK-TRACE-P*">CCL::*CALLBACK-TRACE-P*</a>: NIL</div><div><br></div><div>*(34B968) : 10 (COMPUTE-BOYER-MOORE-JUMPS #(40 68 69 70 85 ...) #<Compiled-function SVREF #x40FDE7E>) 232</div><div> (HI::VEC HI::ACCESS-FUN)</div><div> HI::VEC: #(40 68 69 70 85 ...)</div><div> HI::ACCESS-FUN: #<Compiled-function SVREF #x40FDE7E></div><div><br></div><div> HI::JUMPS: #(1392 1392 1392 1392 1392 ...)</div><div> HI::LEN: 1392</div><div> #:G31365: 1392</div><div> HI::I: 215</div><div><br></div><div> Search-Pattern for </div><div> (34B9A4) : 11 (FUNCALL #'#<Anonymous Function #x5312366> :FORWARD "(defun skala-om-till-summa-med-minimivarde-special2 (lista summa minimivarde)</div><div> (let (res rest (intlista (höj-till-noll lista)))</div><div> (if (< summa (* (length intlista) minimivarde)) </div><div> (return-from skala-om-till-summa-med-minimivarde-special2 (skala-om-till-summa-med-minimivarde-special1 lista summa 1))</div><div> (if (= summa (* (length intlista) minimivarde))</div><div> (dotimes (i (/ summa minimivarde) res)</div><div> (push minimivarde res))</div><div> (let* ((gammal-summa (reduce #'+ intlista))</div><div> (faktor (/ summa gammal-summa))</div><div> )</div><div> (setf rest 0)</div><div> (setf res (map 'list #'(lambda (elt) </div><div> (let* ((ra (+ (* faktor elt) rest))</div><div> (ra-avrundad (floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!</div><div> (if (<= ra-avrundad (1- minimivarde))</div><div> (setf ra-avrundad minimivarde))</div><div> (setf rest (- ra ra-avrundad))</div><div> ra-avrundad)) intlista)))))</div><div> (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)</div><div> (let (res rest (intlista (höj-till-noll lista)))</div><div> (if (< summa (* (length intlista) minimivarde)) </div><div> (return-from skala-om-till-summa-med-minimivarde-special2 (skala-om-till-summa-med-minimivarde-special1 lista summa 1))</div><div> (if (= summa (* (length intlista) minimivarde))</div><div> (dotimes (i (/ summa minimivarde) res)</div><div> (push minimivarde res))</div><div> (let* ((gammal-summa (reduce #'+ intlista))</div><div> (faktor (/ summa gammal-summa))</div><div> )</div><div> (setf rest 0)</div><div> (setf res (map 'list #'(lambda (elt) </div><div> (let* ((ra (+ (* faktor elt) rest))</div><div> (ra-avrundad (floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!</div><div> (if (<= ra-avrundad (1- minimivarde))</div><div> (setf ra-avrundad minimivarde))</div><div> (setf rest (- ra ra-avrundad))</div><div> ra-avrundad)) intlista)))))</div><div> (if (< summa (reduce #'+ res)) (skala-om-till-summa-med-minimivarde-special2 res summa minimivarde) r"></div><div>) 1143</div><div> (HI::DIRECTION HI::PATTERN HI::OLD)</div><div> HI::DIRECTION: :FORWARD</div><div> HI::PATTERN: "(defun skala-om-till-summa-med-minimivarde-special2 (lista summa minimivarde)</div><div> (let (res rest (intlista (höj-till-noll lista)))</div><div> (if (< summa (* (length intlista) minimivarde)) </div><div> (return-from skala-om-till-summa-med-minimivarde-special2 (skala-om-till-summa-med-minimivarde-special1 lista summa 1))</div><div> (if (= summa (* (length intlista) minimivarde))</div><div> (dotimes (i (/ summa minimivarde) res)</div><div> (push minimivarde res))</div><div> (let* ((gammal-summa (reduce #'+ intlista))</div><div> (faktor (/ summa gammal-summa))</div><div> )</div><div> (setf rest 0)</div><div> (setf res (map 'list #'(lambda (elt) </div><div> (let* ((ra (+ (* faktor elt) rest))</div><div> (ra-avrundad (floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!</div><div> (if (<= ra-avrundad (1- minimivarde))</div><div> (setf ra-avrundad minimivarde))</div><div> (setf rest (- ra ra-avrundad))</div><div> ra-avrundad)) intlista)))))</div><div> (if (< summa (reduce #'+ res)) (skala-om-till-summa-med-minimivarde-special2 res summa minimivarde) r"</div><div> HI::OLD: #<Hemlock forward string-insensitive Search-Pattern for "(defun skala-om-till-summa-med-minimivarde-special2 (lista summa minimivarde)</div><div> (let (res rest (intlista (höj-till-noll lista)))</div><div> (if (< summa (* (length intlista) minimivarde)) </div><div> (return-from skala-om-till-summa-med-minimivarde-special2 (skala-om-till-summa-med-minimivarde-special1 lista summa 1))</div><div> (if (= summa (* (length intlista) minimivarde))</div><div> (dotimes (i (/ summa minimivarde) res)</div><div> (push minimivarde res))</div><div> (let* ((gammal-summa (reduce #'+ intlista))</div><div> (faktor (/ summa gammal-summa))</div><div> )</div><div> (setf rest 0)</div><div> (setf res (map 'list #'(lambda (elt) </div><div> (let* ((ra (+ (* faktor elt) rest))</div><div> (ra-avrundad (floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!</div><div> (if (<= ra-avrundad (1- minimivarde))</div><div> (setf ra-avrundad minimivarde))</div><div> (setf rest (- ra ra-avrundad))</div><div> ra-avrundad)) intlista)))))</div><div> (if (< summa (reduce #'+ res)) (skala-om-till-summa-med-minimivarde-special2 res summa minimivarde) r"></div><div><br></div><div><br></div><div> HI::FOLDED-STRING: "(DEFUN SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2 (LISTA SUMMA MINIMIVARDE)</div><div> (LET (RES REST (INTLISTA (HÖJ-TILL-NOLL LISTA)))</div><div> (IF (< SUMMA (* (LENGTH INTLISTA) MINIMIVARDE)) </div><div> (RETURN-FROM SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2 (SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL1 LISTA SUMMA 1))</div><div> (IF (= SUMMA (* (LENGTH INTLISTA) MINIMIVARDE))</div><div> (DOTIMES (I (/ SUMMA MINIMIVARDE) RES)</div><div> (PUSH MINIMIVARDE RES))</div><div> (LET* ((GAMMAL-SUMMA (REDUCE #'+ INTLISTA))</div><div> (FAKTOR (/ SUMMA GAMMAL-SUMMA))</div><div> )</div><div> (SETF REST 0)</div><div> (SETF RES (MAP 'LIST #'(LAMBDA (ELT) </div><div> (LET* ((RA (+ (* FAKTOR ELT) REST))</div><div> (RA-AVRUNDAD (FLOOR RA))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!</div><div> (IF (<= RA-AVRUNDAD (1- MINIMIVARDE))</div><div> (SETF RA-AVRUNDAD MINIMIVARDE))</div><div> (SETF REST (- RA RA-AVRUNDAD))</div><div> RA-AVRUNDAD)) INTLISTA)))))</div><div> (IF (< SUMMA (REDUCE #'+ RES)) (SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2 RES SUMMA MINIMIVARDE) R"</div><div> HI::HASHED-STRING: #(40 68 69 70 85 ...)</div><div><br></div><div> (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</div><div> (HEMLOCK::SOURCE)</div><div> 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..."></div><div><br></div><div> HEMLOCK::START-POS: 16964</div><div> HEMLOCK::FULL-TEXT: "(defun skala-om-till-summa-med-minimivarde-special2 (lista summa minimivarde)</div><div> (let (res rest (intlista (höj-till-noll lista)))</div><div> (if (< summa (* (length intlista) minimivarde)) </div><div> (return-from skala-om-till-summa-med-minimivarde-special2 (skala-om-till-summa-med-minimivarde-special1 lista summa 1))</div><div> (if (= summa (* (length intlista) minimivarde))</div><div> (dotimes (i (/ summa minimivarde) res)</div><div> (push minimivarde res))</div><div> (let* ((gammal-summa (reduce #'+ intlista))</div><div> (faktor (/ summa gammal-summa))</div><div> )</div><div> (setf rest 0)</div><div> (setf res (map 'list #'(lambda (elt) </div><div> (let* ((ra (+ (* faktor elt) rest))</div><div> (ra-avrundad (floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!</div><div> (if (<= ra-avrundad (1- minimivarde))</div><div> (setf ra-avrundad minimivarde))</div><div> (setf rest (- ra ra-avrundad))</div><div> ra-avrundad)) intlista)))))</div><div> (if (< summa (reduce #'+ res)) (skala-om-till-summa-med-minimivarde-special2 res summa minimivarde) r"</div><div> HEMLOCK::PATTERN: NIL</div><div> HEMLOCK::OFFSET: 0</div><div> HEMLOCK::TEMP-MARK: #<Hemlock Mark "^(defun skala-om-till-summa-med-minimivarde-special2 (lista summa minimivarde)"></div><div> HEMLOCK-INTERFACE:MARK: #<Hemlock Mark "^(defun skala-om-till-summa-med-minimivarde-special2 (lista summa minimivarde)"></div><div> STRING: "(defun skala-om-till-summa-med-minimivarde-special2 (lista summa minimivarde)</div><div> (let (res rest (intlista (höj-till-noll lista)))</div><div> (if (< summa (* (length intlista) minimivarde)) </div><div> (return-from skala-om-till-summa-med-minimivarde-special2 (skala-om-till-summa-med-minimivarde-special1 lista summa 1))</div><div> (if (= summa (* (length intlista) minimivarde))</div><div> (dotimes (i (/ summa minimivarde) res)</div><div> (push minimivarde res))</div><div> (let* ((gammal-summa (reduce #'+ intlista))</div><div> (faktor (/ summa gammal-summa))</div><div> )</div><div> (setf rest 0)</div><div> (setf res (map 'list #'(lambda (elt) </div><div> (let* ((ra (+ (* faktor elt) rest))</div><div> (ra-avrundad (floor ra))) ;JAG ÄNDRADE HÄR TILL FLOOR!!!! NU FUNKER DENNA I ALLA LÄGEN!!!! BYT TILL DENNA EEFFTTEERR KERSTINS LÅT!!</div><div> (if (<= ra-avrundad (1- minimivarde))</div><div> (setf ra-avrundad minimivarde))</div><div> (setf rest (- ra ra-avrundad))</div><div> ra-avrundad)) intlista)))))</div><div> (if (< summa (reduce #'+ res)) (skala-om-till-summa-med-minimivarde-special2 res summa minimivarde) r"</div><div><br></div><div> (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</div><div> (HEMLOCK::DEF-TYPE HEMLOCK::FULL-NAME HEMLOCK::SOURCE)</div><div> HEMLOCK::DEF-TYPE: #<FUNCTION-DEFINITION-TYPE FUNCTION #xC130E8E></div><div> HEMLOCK::FULL-NAME: UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2</div><div> 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..."></div><div><br></div><div><br></div><div><br></div><div> (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</div><div> (HI::VIEW HI::KEY)</div><div> HI::VIEW: #<HI:HEMLOCK-VIEW #xC83692E></div><div> HI::KEY: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION HEMLOCK::EDIT-DEFINITION) #xC78DDF6></div><div><br></div><div> HI::*SAVED-STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #xC613F06></div><div> *STANDARD-OUTPUT*: #<GUI::COCOA-LISTENER-OUTPUT-STREAM #xC64D506></div><div><br></div><div> (34BA2C) : 15 (FUNCALL #'#<(:INTERNAL (HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)))>) 479</div><div> NIL</div><div><br></div><div> #:G28228: #<RESTART HI::EXIT-EVENT-HANDLER #xCC866></div><div> #:G28224: (#<RESTART HI::EXIT-EVENT-HANDLER #xCC866>)</div><div> CCL::%RESTARTS%: ((#<# # #xCC866>) (#<# # #xCC976> #<# # #xCC99E>) (#<# # #xCCB56>) (#<# # #xCCC66> #<# # #xCCC8E>) (#<# # #xCCFB6>))</div><div> #:G28229: #<Compiled-function (:INTERNAL #) (Non-Global) #x52888F6></div><div> #:G28230: (ERROR #<Compiled-function # (Non-Global) #x52888F6>)</div><div> CCL::%HANDLERS%: ((ERROR #) (ERROR) (ERROR #) (CONDITION #) (CONDITION #))</div><div> HI::KEY: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION HEMLOCK::EDIT-DEFINITION) #xC78DDF6></div><div> HI::VIEW: #<HI:HEMLOCK-VIEW #xC83692E></div><div><br></div><div> (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</div><div> (GUI::BUFFER GUI::THUNK)</div><div> GUI::BUFFER: #<Hemlock Buffer "UTILITIES.LISP /Users/js/ejs/environnement js 37.05.o/utilities/"></div><div> GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #xC854DC6></div><div><br></div><div> GUI::OLD: #<Hemlock Buffer "Untitled 2"></div><div><br></div><div> (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</div><div> (HI::VIEW HI::KEY)</div><div> HI::VIEW: #<HI:HEMLOCK-VIEW #xC83692E></div><div> HI::KEY: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION HEMLOCK::EDIT-DEFINITION) #xC78DDF6></div><div><br></div><div> #:ABORT-BREAK: #<RESTART ABORT-BREAK #xCC99E></div><div> #:ABORT: #<RESTART ABORT #xCC976></div><div> #:G28221: (#<RESTART ABORT #xCC976> #<RESTART ABORT-BREAK #xCC99E>)</div><div> CCL::%RESTARTS%: ((#<# # #xCC976> #<# # #xCC99E>) (#<# # #xCCB56>) (#<# # #xCCC66> #<# # #xCCC8E>) (#<# # #xCCFB6>))</div><div> HI::*CURRENT-VIEW*: #<HI:HEMLOCK-VIEW #xC83692E></div><div> HI::*CURRENT-BUFFER*: #<Hemlock Buffer "UTILITIES.LISP /Users/js/ejs/environnement js 37.05.o/utilities/"></div><div> HI::*NEXT-VIEW-START*: NIL</div><div> HI::TEXT-BUFFER: #<Hemlock Buffer "UTILITIES.LISP /Users/js/ejs/environnement js 37.05.o/utilities/"></div><div> MOD: (53 0 . 0)</div><div><br></div><div> (34BAEC) : 18 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 863976)) 1055</div><div> (<a href="CCL::MAGIC">CCL::MAGIC</a> &REST <a href="CCL::ARGS)">CCL::ARGS)</a></div><div> <a href="CCL::MAGIC">CCL::MAGIC</a>: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 863976)</div><div> <a href="CCL::ARGS">CCL::ARGS</a>: NIL</div><div><br></div><div> <a href="CCL::NEXT-METHODS">CCL::NEXT-METHODS</a>: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)</div><div> <a href="CCL::ARGS">CCL::ARGS</a>: 863976</div><div> CDR: NIL</div><div> METHOD-FUNCTION: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)></div><div> #:G103440: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 863976)</div><div> #:G103441: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)></div><div> #:G103442: 863976</div><div><br></div><div> (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</div><div> (GUI::VIEW GUI::EVENT)</div><div> GUI::VIEW: #<HI:HEMLOCK-VIEW #xC83692E></div><div> GUI::EVENT: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK::DEFN-ACTION HEMLOCK::EDIT-DEFINITION) #xC78DDF6></div><div><br></div><div> #:NEXT-METHOD-CONTEXT: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 863976)</div><div> #:G45732: #<NS-AUTORELEASE-POOL <NSAutoreleasePool: 0x3a56540> (#x3A56540)></div><div><br></div><div> (34BB68) : 20 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>) 863976) 679</div><div> (<a href="CCL::METHODS">CCL::METHODS</a> <a href="CCL::ARGS)">CCL::ARGS)</a></div><div> <a href="CCL::METHODS">CCL::METHODS</a>: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)</div><div> <a href="CCL::ARGS">CCL::ARGS</a>: 863976</div><div><br></div><div> <a href="CCL::CAR-METHS">CCL::CAR-METHS</a>: #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)></div><div> <a href="CCL::CELL-2">CCL::CELL-2</a>: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 863976)</div><div> <a href="CCL::MAGIC">CCL::MAGIC</a>: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 863976)</div><div> #:G103376: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 863976)</div><div> #:G103377: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)></div><div> #:G103378: 863976</div><div><br></div><div> (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</div><div> (GUI::THUNK GUI::RESULT-HANDLER GUI::CONTEXT &OPTIONAL GUI::INVOKING-PROCESS)</div><div> GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL HEMLOCK-EXT:EXECUTE-IN-FILE-VIEW) #xC78DDC6></div><div> GUI::RESULT-HANDLER: NIL</div><div> GUI::CONTEXT: NIL</div><div> GUI::INVOKING-PROCESS: #<APPKIT-PROCESS Initial(0) [Active] #xC05C44E></div><div><br></div><div> GUI::*INVOKING-EVENT-PROCESS*: #<APPKIT-PROCESS Initial(0) [Active] #xC05C44E></div><div> GUI::*INVOKING-EVENT-CONTEXT*: NIL</div><div><br></div><div> (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</div><div> (HEMLOCK::DEFN &OPTIONAL HEMLOCK::MSG)</div><div> 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...">)</div><div> HEMLOCK::MSG: NIL</div><div><br></div><div> #: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...">)</div><div> #:ARGS38945: #<<a href="CCL::DESTRUCTURE-STATE">CCL::DESTRUCTURE-STATE</a> #xCCA6E></div><div> #:REQ38946: (#<FUNCTION-DEFINITION-TYPE FUNCTION #xC130E8E> . UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2)</div><div> #:WHOLE38947: (#<FUNCTION-DEFINITION-TYPE FUNCTION #xC130E8E> . UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2)</div><div> #:ARGS38948: #<<a href="CCL::DESTRUCTURE-STATE">CCL::DESTRUCTURE-STATE</a> #xCCA4E></div><div> HEMLOCK::DEF-TYPE: #<FUNCTION-DEFINITION-TYPE FUNCTION #xC130E8E></div><div> #:REST38949: UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2</div><div> HEMLOCK::FULL-NAME: UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2</div><div> #: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..."></div><div> 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..."></div><div><br></div><div> (34BC20) : 23 (GET-DEF-INFO-AND-GO-TO-IT "ut:skala-om-till-summa-med-minimivarde-special2" #<Package "COMMON-LISP-USER">) 951</div><div> (STRING PACKAGE)</div><div> STRING: "ut:skala-om-till-summa-med-minimivarde-special2"</div><div> PACKAGE: #<Package "COMMON-LISP-USER"></div><div><br></div><div> HEMLOCK::FUN-NAME: UTILITAIRES:SKALA-OM-TILL-SUMMA-MED-MINIMIVARDE-SPECIAL2</div><div> ERROR: NIL</div><div> #:G38832: (ERROR)</div><div> CCL::%HANDLERS%: ((ERROR) (ERROR #) (CONDITION #) (CONDITION #))</div><div><br></div><div> (34BC4C) : 24 (FUNCALL #'#<#<STANDARD-METHOD HI::EXECUTE-HEMLOCK-KEY (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC78593E> #<Key-Event M-.>) 975</div><div> (HI::VIEW HI::KEY)</div><div> HI::VIEW: #<HI:HEMLOCK-VIEW #xC78593E></div><div> HI::KEY: #<Key-Event M-.></div><div><br></div><div> HI::*SAVED-STANDARD-OUTPUT*: #<SYNONYM-STREAM to *TERMINAL-IO* #xC613F06></div><div> *STANDARD-OUTPUT*: #<GUI::COCOA-LISTENER-OUTPUT-STREAM #xC64D506></div><div> HI::MAIN-BINDING: #<Hemlock Command "Goto Definition"></div><div> HI::TRANSPARENT-BINDINGS: NIL</div><div> HI::*LAST-LAST-COMMAND-TYPE*: NIL</div><div> HI::*LAST-PREFIX-ARGUMENT*: NIL</div><div><br></div><div> (34BC98) : 25 (FUNCALL #'#<(:INTERNAL (HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)))>) 479</div><div> NIL</div><div><br></div><div> #:G28228: #<RESTART HI::EXIT-EVENT-HANDLER #xCCB56></div><div> #:G28224: (#<RESTART HI::EXIT-EVENT-HANDLER #xCCB56>)</div><div> CCL::%RESTARTS%: ((#<# # #xCCB56>) (#<# # #xCCC66> #<# # #xCCC8E>) (#<# # #xCCFB6>))</div><div> #:G28229: #<Compiled-function (:INTERNAL #) (Non-Global) #x52888F6></div><div> #:G28230: (ERROR #<Compiled-function # (Non-Global) #x52888F6>)</div><div> CCL::%HANDLERS%: ((ERROR #) (CONDITION #) (CONDITION #))</div><div> HI::KEY: #<Key-Event M-.></div><div> HI::VIEW: #<HI:HEMLOCK-VIEW #xC78593E></div><div><br></div><div> (34BCD4) : 26 (INVOKE-MODIFYING-BUFFER-STORAGE #<Hemlock Buffer "Untitled 2"> #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #xC78E1E6>) 415</div><div> (GUI::BUFFER GUI::THUNK)</div><div> GUI::BUFFER: #<Hemlock Buffer "Untitled 2"></div><div> GUI::THUNK: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL #) #xC78E1E6></div><div><br></div><div> GUI::OLD: NIL</div><div><br></div><div> (34BD04) : 27 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC78593E> #<Key-Event M-.>) 783</div><div> (HI::VIEW HI::KEY)</div><div> HI::VIEW: #<HI:HEMLOCK-VIEW #xC78593E></div><div> HI::KEY: #<Key-Event M-.></div><div><br></div><div> #:ABORT-BREAK: #<RESTART ABORT-BREAK #xCCC8E></div><div> #:ABORT: #<RESTART ABORT #xCCC66></div><div> #:G28221: (#<RESTART ABORT #xCCC66> #<RESTART ABORT-BREAK #xCCC8E>)</div><div> CCL::%RESTARTS%: ((#<# # #xCCC66> #<# # #xCCC8E>) (#<# # #xCCFB6>))</div><div> HI::*CURRENT-VIEW*: #<HI:HEMLOCK-VIEW #xC78593E></div><div> HI::*CURRENT-BUFFER*: #<Hemlock Buffer "Untitled 2"></div><div> HI::*NEXT-VIEW-START*: NIL</div><div> HI::TEXT-BUFFER: #<Hemlock Buffer "Untitled 2"></div><div> MOD: (50 40 . 40)</div><div><br></div><div> (34BD58) : 28 (%CALL-NEXT-METHOD (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 864130)) 1055</div><div> (<a href="CCL::MAGIC">CCL::MAGIC</a> &REST <a href="CCL::ARGS)">CCL::ARGS)</a></div><div> <a href="CCL::MAGIC">CCL::MAGIC</a>: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 864130)</div><div> <a href="CCL::ARGS">CCL::ARGS</a>: NIL</div><div><br></div><div> <a href="CCL::NEXT-METHODS">CCL::NEXT-METHODS</a>: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)</div><div> <a href="CCL::ARGS">CCL::ARGS</a>: 864130</div><div> CDR: NIL</div><div> METHOD-FUNCTION: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)></div><div> #:G103440: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 864130)</div><div> #:G103441: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT (HI:HEMLOCK-VIEW T)></div><div> #:G103442: 864130</div><div><br></div><div> (34BDA0) : 29 (FUNCALL #'#<#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)>> #<HI:HEMLOCK-VIEW #xC78593E> #<Key-Event M-.>) 175</div><div> (GUI::VIEW GUI::EVENT)</div><div> GUI::VIEW: #<HI:HEMLOCK-VIEW #xC78593E></div><div> GUI::EVENT: #<Key-Event M-.></div><div><br></div><div> #:NEXT-METHOD-CONTEXT: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 864130)</div><div> #:G45732: #<NS-AUTORELEASE-POOL <NSAutoreleasePool: 0x1d0800> (#x1D0800)></div><div><br></div><div> (34BDD4) : 30 (%%STANDARD-COMBINED-METHOD-DCODE (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>) 864130) 679</div><div> (<a href="CCL::METHODS">CCL::METHODS</a> <a href="CCL::ARGS)">CCL::ARGS)</a></div><div> <a href="CCL::METHODS">CCL::METHODS</a>: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND #> #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #>)</div><div> <a href="CCL::ARGS">CCL::ARGS</a>: 864130</div><div><br></div><div> <a href="CCL::CAR-METHS">CCL::CAR-METHS</a>: #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)></div><div> <a href="CCL::CELL-2">CCL::CELL-2</a>: (#<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 864130)</div><div> <a href="CCL::MAGIC">CCL::MAGIC</a>: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 864130)</div><div> #:G103376: (NIL #<STANDARD-METHOD HI::HANDLE-HEMLOCK-EVENT #> . 864130)</div><div> #:G103377: #<METHOD-FUNCTION HI::HANDLE-HEMLOCK-EVENT :AROUND (HI:HEMLOCK-VIEW T)></div><div> #:G103378: 864130</div><div><br></div><div> (34BE14) : 31 (FUNCALL #'#<GUI::|-[HemlockTextstorageTextView keyDown:]|> -268436182) 1215</div><div> (#:G45698)</div><div> #:G45698: -268436182</div><div><br></div><div> #:G45713: #<A Foreign Pointer [stack-allocated] #xBFFFF4A8></div><div> #:G45699: #<A Foreign Pointer [stack-allocated] #xBFFFF4A8></div><div> #:COMPILER-VAR: (NIL)</div><div> #:G45703: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[HemlockTextstorageTextView keyDown:]|) #xCCD66></div><div> #:G45714: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xCCD66>)</div><div> CCL::%HANDLERS%: ((CONDITION #) (CONDITION #))</div><div> GUI::SELF: #<HEMLOCK-TEXT-VIEW <HemlockTextView: 0x1ead000></div><div> Frame = {{0.00, 0.00}, {585.00, 336.00}}, Bounds = {{0.00, 0.00}, {585.00, 336.00}}</div><div> Horizontally resizable: YES, Vertically resizable: YES</div><div> MinSize = {585.00, 336.00}, MaxSize = {10000000.00, 10000000.00}</div><div> (#x1EAD000)></div><div> 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)></div><div> GUI::VIEW: #<HI:HEMLOCK-VIEW #xC78593E></div><div> GUI::QUOTE-P: NIL</div><div> GUI::HEMLOCK-KEY: #<Key-Event M-.></div><div><br></div><div> (34BE54) : 32 (%PASCAL-FUNCTIONS% 73 -268436182) 343</div><div> (<a href="CCL::INDEX">CCL::INDEX</a> <a href="CCL::ARGS-PTR-FIXNUM)">CCL::ARGS-PTR-FIXNUM)</a></div><div> <a href="CCL::INDEX">CCL::INDEX</a>: 73</div><div> <a href="CCL::ARGS-PTR-FIXNUM">CCL::ARGS-PTR-FIXNUM</a>: -268436182</div><div><br></div><div> <a href="CCL::LISP-FUNCTION">CCL::LISP-FUNCTION</a>: #<Compiled-function GUI::|-[HemlockTextstorageTextView keyDown:]| (Non-Global) #x54D51BE></div><div> WITHOUT-INTERRUPTS: NIL</div><div> <a href="CCL::*CALLBACK-TRACE-P*">CCL::*CALLBACK-TRACE-P*</a>: NIL</div><div><br></div><div> (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</div><div> (#:G6384 #:G6385 <a href="CCL::ARG0)">CCL::ARG0)</a></div><div> #:G6384: #<A Foreign Pointer [stack-allocated] (:* #) #xBFFFF900></div><div> #:G6385: #<A Foreign Pointer #x92DF24B8></div><div> <a href="CCL::ARG0">CCL::ARG0</a>: #<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)></div><div><br></div><div><br></div><div><br></div><div> (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</div><div> (<a href="CCL::SELF">CCL::SELF</a> CLASS <a href="CCL::SELECTOR">CCL::SELECTOR</a> <a href="CCL::SIG">CCL::SIG</a> &REST <a href="CCL::ARGS)">CCL::ARGS)</a></div><div> <a href="CCL::SELF">CCL::SELF</a>: #<LISP-APPLICATION <LispApplication: 0x80d000> (#x80D000)></div><div> CLASS: #<OBJC:OBJC-CLASS GUI::LISP-APPLICATION (#x114850)></div><div> <a href="CCL::SELECTOR">CCL::SELECTOR</a>: #<A Foreign Pointer #x92DF24B8></div><div> <a href="CCL::SIG">CCL::SIG</a>: (:VOID :ID)</div><div> <a href="CCL::ARGS">CCL::ARGS</a>: (#<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)>)</div><div><br></div><div> <a href="CCL::S">CCL::S</a>: #<A Foreign Pointer [stack-allocated] (:* #) #xBFFFF900></div><div> <a href="CCL::SIGINFO">CCL::SIGINFO</a>: #S(<a href="CCL::OBJC-METHOD-SIGNATURE-INFO">CCL::OBJC-METHOD-SIGNATURE-INFO</a> :TYPE-SIGNATURE (:VOID :ID) :FUNCTION #<Anonymous Function #x4D73AAE> ...)</div><div> FUNCTION: #<Anonymous Function #x4D73CCE></div><div> #:G2753: #<A Foreign Pointer [stack-allocated] (:* #) #xBFFFF890></div><div> #:G2754: -268435942</div><div><br></div><div> (34BF00) : 35 (FUNCALL #'#<GUI::|-[LispApplication sendEvent:]|> -268435870) 919</div><div> (#:G24204)</div><div> #:G24204: -268435870</div><div><br></div><div> #:G24219: #<A Foreign Pointer [stack-allocated] #xBFFFF988></div><div> #:G24205: #<A Foreign Pointer [stack-allocated] #xBFFFF988></div><div> #:COMPILER-VAR: (NIL)</div><div> #:G24209: #<COMPILED-LEXICAL-CLOSURE (:INTERNAL GUI::|-[LispApplication sendEvent:]|) #xCCE86></div><div> #:G24220: (CONDITION #<COMPILED-LEXICAL-CLOSURE # #xCCE86>)</div><div> CCL::%HANDLERS%: ((CONDITION #))</div><div> GUI::SELF: #<LISP-APPLICATION <LispApplication: 0x80d000> (#x80D000)></div><div> 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)></div><div> <a href="CCL::ARGS">CCL::ARGS</a>: (#<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)>)</div><div><br></div><div> (34BF38) : 36 (%PASCAL-FUNCTIONS% 15 -268435870) 343</div><div> (<a href="CCL::INDEX">CCL::INDEX</a> <a href="CCL::ARGS-PTR-FIXNUM)">CCL::ARGS-PTR-FIXNUM)</a></div><div> <a href="CCL::INDEX">CCL::INDEX</a>: 15</div><div> <a href="CCL::ARGS-PTR-FIXNUM">CCL::ARGS-PTR-FIXNUM</a>: -268435870</div><div><br></div><div> <a href="CCL::LISP-FUNCTION">CCL::LISP-FUNCTION</a>: #<Compiled-function GUI::|-[LispApplication sendEvent:]| (Non-Global) #x5180DF6></div><div> WITHOUT-INTERRUPTS: NIL</div><div> <a href="CCL::*CALLBACK-TRACE-P*">CCL::*CALLBACK-TRACE-P*</a>: NIL</div><div><br></div><div> (34BF80) : 37 (FUNCALL #'#<Anonymous Function #x4CB01FE> #<LISP-APPLICATION <LispApplication: 0x80d000> (#x80D000)> #S(<a href="CCL::OBJC-SELECTOR">CCL::OBJC-SELECTOR</a> :NAME "run" :%SEL #<A Foreign Pointer #x92E9CA24>)) 199</div><div> (#:G3305 #:G3306)</div><div> #:G3305: #<LISP-APPLICATION <LispApplication: 0x80d000> (#x80D000)></div><div> #:G3306: #S(<a href="CCL::OBJC-SELECTOR">CCL::OBJC-SELECTOR</a> :NAME "run" :%SEL #<A Foreign Pointer #x92E9CA24>)</div><div><br></div><div><br></div><div><br></div><div> (34BF90) : 38 (FUNCALL #'#<(:OBJC-DISPATCH NEXTSTEP-FUNCTIONS:|run|)> ???) 983</div><div> NIL</div><div><br></div><div><br></div><div><br></div><div> (34BFC8) : 39 (EVENT-LOOP NIL) 383</div><div> (&OPTIONAL GUI::END-TEST)</div><div> GUI::END-TEST: NIL</div><div><br></div><div> GUI::APP: #<LISP-APPLICATION <LispApplication: 0x80d000> (#x80D000)></div><div> GUI::THREAD: #<APPKIT-PROCESS Initial(0) [Active] #xC05C44E></div><div> #:ABORT: #<RESTART ABORT #xCCFB6></div><div> #:G26660: (#<RESTART ABORT #xCCFB6>)</div><div> CCL::%RESTARTS%: ((#<# # #xCCFB6>))</div><div><br></div><div><div>Le 2 avr. 10 ā 23:39, Gary Byers a écrit :</div><br class="Apple-interchange-newline"><blockquote type="cite"><div><br><br>On Fri, 2 Apr 2010, Joakim Sandgren wrote:<br><br><blockquote type="cite">Hi,I did a mail here some time ago about the falling sky when I did the<br></blockquote><blockquote type="cite">command shift alt . to find the source code of a function.<br></blockquote><blockquote type="cite">then I had the "sky" all the time.<br></blockquote><blockquote type="cite">But if I do take the file, open it, select all, copy,, make a new doument<br></blockquote><blockquote type="cite">paste it all there and save it, and load that file the find source command<br></blockquote><blockquote type="cite">works.<br></blockquote><blockquote type="cite">Good! But why ??<br></blockquote><br>It's too bad that there wasn't any backtrace information or anything else<br>that would have maybe enabled someone to have identified the problem in the<br>first place.<br><br><blockquote type="cite">so I do have to go through my project in this way to "port" it to clozure ?<br></blockquote><br>Either that, or provide backtraces and enough information so that someone<br>could reproduce and understand and fix the problem.<br><br>If you prefer the trial-and-error approach, fine, but it doesn't seem like<br>a good use of your time or anyone else's.<br><br><blockquote type="cite">sincerely<br></blockquote><blockquote type="cite">joakim<br></blockquote><blockquote type="cite">Joakim Sandgren<br></blockquote><blockquote type="cite">joakim sandgren musik<br></blockquote><blockquote type="cite">42, rue de Maubeuge<br></blockquote><blockquote type="cite">75009 Paris<br></blockquote><blockquote type="cite">France<br></blockquote><blockquote type="cite">+33 (0)1 45 26 43 90<br></blockquote><blockquote type="cite"><a href="mailto:info@joakimsandgren.com">info@joakimsandgren.com</a><br></blockquote><blockquote type="cite"><a href="http://www.joakimsandgren.com">http://www.joakimsandgren.com</a><br></blockquote><blockquote type="cite"><br></blockquote><br></div></blockquote></div><br><div> <span class="Apple-style-span" style="font-size: 12px; "><div><font class="Apple-style-span" color="#595959" face="'Trebuchet MS'"><br class="Apple-interchange-newline"><br></font></div><div><font class="Apple-style-span" color="#595959" face="'Trebuchet MS'"><br></font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959">Joakim Sandgren</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959">joakim sandgren musik</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959">42, rue de Maubeuge</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959">75009 Paris</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959">France</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959">+33 (0)1 45 26 43 90</font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><a href="mailto:info@joakimsandgren.com">info@joakimsandgren.com</a></font></div><div><font class="Apple-style-span" face="'Trebuchet MS'" color="#595959"><a href="http://www.joakimsandgren.com/">http://www.joakimsandgren.com</a></font></div></span> </div><br></div></div></div></body></html>