<1/2159> #<SYSTEM-FUNCTION SHOW-STACK> 3
<2/2152> #<COMPILED-FUNCTION SYSTEM::PRINT-BACKTRACE>
<3/2146> #<COMPILED-FUNCTION SYSTEM::DEBUG-BACKTRACE>
<4/2137> #<SYSTEM-FUNCTION SYSTEM::READ-EVAL-PRINT> 2
<5/2134> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP-2-3>
<6/2130> #<SYSTEM-FUNCTION SYSTEM::SAME-ENV-AS> 2
<7/2116> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP-2>
<8/2114> #<SYSTEM-FUNCTION SYSTEM::DRIVER>
<9/2074> #<COMPILED-FUNCTION SYSTEM::BREAK-LOOP>
<10/2071> #<SYSTEM-FUNCTION INVOKE-DEBUGGER> 1
<11/2061> #<SYSTEM-FUNCTION ERROR>
<12/2048> #<COMPILED-FUNCTION SYSTEM::CHECK-VALUE>
<13/2046> #<SYSTEM-FUNCTION SYSTEM::%PUT>
[2043] «frame» EVAL pour la forme (SYSTEM::%PUT #:G17158 #:G17159 #:G17160)
<14/2027> #<SPECIAL-OPERATOR LET*>
[2025] «frame» EVAL pour la forme (LET* ((#:G17158 VM) (#:G17159 ADR) (#:G17160 RES)) (SYSTEM::%PUT #:G17158 #:G17159 #:G17160))
<15/2025> #<SPECIAL-OPERATOR IF>
<16/2009> #<SPECIAL-OPERATOR LET>
[2007] «frame» EVAL pour la forme
(LET ((ADR (GETDEST VM DST)) (RES (GETSOURCE VM SRC)))
 (IF (NUMBERP ADR) (SETMEMOIRE VM ADR RES)
  (LET* ((#:G17158 VM) (#:G17159 ADR) (#:G17160 RES)) (SYSTEM::%PUT #:G17158 #:G17159 #:G17160))))
[1985] «frame» APPLY pour l'application (MOVE '
#<VM :R0 0 :R1 0 :R2 0 :R3 0 :PC 9941 :LC 9929 :BP 100 :SP 100 :FP 0 :DPP 0 :DE 0 :DPG 0
  :MEMTAB #(0 0 0 0 0 0 0 0 0 0 ...) :ETIQ #S(HASH-TABLE :TEST FASTHASH-EQL (FIBO . 9999))
  :ETIQNR #S(HASH-TABLE :TEST FASTHASH-EQL (NB . 0))> '(:DIESE 5) ':R0)
<17/1979>
#<FUNCTION MOVE (VM SRC DST) (DECLARE (SYSTEM::IN-DEFUN MOVE))
  (BLOCK MOVE
   (LET ((ADR (GETDEST VM DST)) (RES (GETSOURCE VM SRC)))
    (IF (NUMBERP ADR) (SETMEMOIRE VM ADR RES) (SETF (GET VM ADR) RES))))> 3
[1978] «frame» EVAL pour la forme (MOVE VM PARAMETRE PARAMETRE2)
<18/1976> #<SPECIAL-OPERATOR CASE>
[1974] «frame» EVAL pour la forme
(CASE INSTRUCT (MOVE (MOVE VM PARAMETRE PARAMETRE2)) (INCR (OPERATIONVM VM '+ '(:DIESE 1) PARAMETRE))
 (DECR (OPERATIONVM VM '- '(:DIESE 1) PARAMETRE)) (ADD (OPERATIONVM VM '+ PARAMETRE PARAMETRE2))
 (SUB (OPERATIONVM VM '- PARAMETRE PARAMETRE2)) (MULT (OPERATIONVM VM '* PARAMETRE PARAMETRE2))
 (DIV (OPERATIONVM VM '/ PARAMETRE PARAMETRE2)) (JMP (JUMP VM PARAMETRE)) ...)
<19/1974> #<SPECIAL-OPERATOR IF>
<20/1955> #<SPECIAL-OPERATOR LET>
[1953] «frame» EVAL pour la forme
(LET ((INSTRUCT (PREMIERELEMENT EXPR)) (PARAMETRE (DEUXIEMEELEMENT EXPR)) (PARAMETRE2 (TROISIEMEELEMENT EXPR)))
 (IF (NULL EXPR) (NOP)
  (CASE INSTRUCT (MOVE (MOVE VM PARAMETRE PARAMETRE2)) (INCR (OPERATIONVM VM '+ '(:DIESE 1) PARAMETRE))
   (DECR (OPERATIONVM VM '- '(:DIESE 1) PARAMETRE)) (ADD (OPERATIONVM VM '+ PARAMETRE PARAMETRE2))
   (SUB (OPERATIONVM VM '- PARAMETRE PARAMETRE2)) (MULT (OPERATIONVM VM '* PARAMETRE PARAMETRE2))
   (DIV (OPERATIONVM VM '/ PARAMETRE PARAMETRE2)) (JMP (JUMP VM PARAMETRE)) ...))
 (IF (NOT (NULL AFF)) (FORMAT T "~S~%" (GETMEMOIRE VM (VM-PC VM))))
 (LET* ((#:TEMP-17151 VM) (#:NEW-17150 (- (VM-PC VM) 1))) (FUNCALL #'(SETF VM-PC) #:NEW-17150 #:TEMP-17151)))
[1931] «frame» APPLY pour l'application (EXEC '
#<VM :R0 0 :R1 0 :R2 0 :R3 0 :PC 9941 :LC 9929 :BP 100 :SP 100 :FP 0 :DPP 0 :DE 0 :DPG 0
  :MEMTAB #(0 0 0 0 0 0 0 0 0 0 ...) :ETIQ #S(HASH-TABLE :TEST FASTHASH-EQL (FIBO . 9999))
  :ETIQNR #S(HASH-TABLE :TEST FASTHASH-EQL (NB . 0))> '(MOVE (:DIESE 5) :R0) 'NIL)
<21/1925>
#<FUNCTION EXEC (VM EXPR &OPTIONAL (AFF NIL)) (DECLARE (SYSTEM::IN-DEFUN EXEC))
  (BLOCK EXEC
   (LET ((INSTRUCT (PREMIERELEMENT EXPR)) (PARAMETRE (DEUXIEMEELEMENT EXPR)) (PARAMETRE2 (TROISIEMEELEMENT EXPR)))
    (IF (NULL EXPR) (NOP)
     (CASE INSTRUCT (MOVE (MOVE VM PARAMETRE PARAMETRE2)) (INCR (OPERATIONVM VM '+ '(:DIESE 1) PARAMETRE))
      (DECR (OPERATIONVM VM '- '(:DIESE 1) PARAMETRE)) (ADD (OPERATIONVM VM '+ PARAMETRE PARAMETRE2))
      (SUB (OPERATIONVM VM '- PARAMETRE PARAMETRE2)) (MULT (OPERATIONVM VM '* PARAMETRE PARAMETRE2))
      (DIV (OPERATIONVM VM '/ PARAMETRE PARAMETRE2)) (JMP (JUMP VM PARAMETRE)) ...))
    (IF (NOT (NULL AFF)) (FORMAT T "~S~%" (GETMEMOIRE VM (VM-PC VM)))) (SETF (VM-PC VM) (- (VM-PC VM) 1))))> 3
[1924] «frame» EVAL pour la forme (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)
<22/1924> #<SPECIAL-OPERATOR IF>
<23/1918> #<SPECIAL-OPERATOR PROGN>
[1917] «frame» EVAL pour la forme
(PROGN
 (UNLESS (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
  (GO SYSTEM::END-LOOP))
 (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
  (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)))
<24/1905> #<SPECIAL-OPERATOR TAGBODY>
[1904] «frame» EVAL pour la forme
(TAGBODY SYSTEM::BEGIN-LOOP
 (PROGN
  (UNLESS (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
   (GO SYSTEM::END-LOOP))
  (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
   (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)))
 (GO SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP)
<25/1897> #<SPECIAL-OPERATOR LET>
[1895] «frame» EVAL pour la forme
(LET NIL
 (TAGBODY SYSTEM::BEGIN-LOOP
  (PROGN
   (UNLESS (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
    (GO SYSTEM::END-LOOP))
   (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
    (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)))
  (GO SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP))
<26/1885> #<SPECIAL-OPERATOR LET>
[1883] «frame» EVAL pour la forme
(LET ((NBFONCTION 0))
 (LET NIL
  (TAGBODY SYSTEM::BEGIN-LOOP
   (PROGN
    (UNLESS (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
     (GO SYSTEM::END-LOOP))
    (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
     (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)))
   (GO SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP)))
<27/1880> #<SPECIAL-OPERATOR PROGN>
[1879] «frame» EVAL pour la forme
(PROGN (SETMEMOIRE VM (VM-LC VM) '(HALT))
 (LET ((NBFONCTION 0))
  (LET NIL
   (TAGBODY SYSTEM::BEGIN-LOOP
    (PROGN
     (UNLESS (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
      (GO SYSTEM::END-LOOP))
     (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
      (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF)))
    (GO SYSTEM::BEGIN-LOOP) SYSTEM::END-LOOP)))
 (IF (>= (VM-SP VM) (VM-PC VM)) (ERROR "Débordement de pile") (VM-R0 VM)))
[1860] «frame» APPLY pour l'application (RUN-VM '
#<VM :R0 0 :R1 0 :R2 0 :R3 0 :PC 9941 :LC 9929 :BP 100 :SP 100 :FP 0 :DPP 0 :DE 0 :DPG 0
  :MEMTAB #(0 0 0 0 0 0 0 0 0 0 ...) :ETIQ #S(HASH-TABLE :TEST FASTHASH-EQL (FIBO . 9999))
  :ETIQNR #S(HASH-TABLE :TEST FASTHASH-EQL (NB . 0))>)
<28/1856>
#<FUNCTION RUN-VM (&OPTIONAL (VM 'VM) (AFF NIL)) (DECLARE (SYSTEM::IN-DEFUN RUN-VM))
  (BLOCK RUN-VM (SETMEMOIRE VM (VM-LC VM) '(HALT))
   (LET ((NBFONCTION 0))
    (LOOP WHILE (AND (CONSP (GETMEMOIRE VM (VM-PC VM))) (NOT (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'HALT)))
     DO
     (IF (EQL (PREMIERELEMENT (GETMEMOIRE VM (VM-PC VM))) 'ENTREEFONCTION) (JUMPDANSFONCTION VM NBFONCTION)
      (EXEC VM (GETMEMOIRE VM (VM-PC VM)) AFF))))
   (IF (>= (VM-SP VM) (VM-PC VM)) (ERROR "Débordement de pile") (VM-R0 VM)))> 1
[1855] «frame» EVAL pour la forme (RUN-VM VM)
<29/1839> #<SPECIAL-OPERATOR LET>
[1837] «frame» EVAL pour la forme
(LET ((VM (MAKE-VM 10000)) FIBO1 FIBO2)
 (SETQ FIBO1
  (READ-FROM-STRING
   "((ENTREEFONCTION) (@ FIBO) (MOVE (LOC -1 0) :R0) (PUSH :R0) (MOVE (:DIESE 2) :R0) (PUSH :R0) (POP :R0) (POP :R1) (CMP :R1 :R0)
   (MOVE (:DIESE T) :R0) (JL (@ finTest1)) (MOVE (:DIESE NIL) :R0) (@ finTest1) (CMP :R0 (:DIESE NIL))
   (JEQ (@ sinon1)) (MOVE (LOC -1 0) :R0) (JMP (@ finSi1)) (@ sinon1) (MOVE (LOC -1 0) :R0)
   (PUSH :R0) (MOVE (:DIESE 1) :R0) (PUSH :R0) (POP :R1) (POP :R0) (SUB :R1 :R0) (PUSH :R0) (PUSH (:DIESE 1))
   (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2) (SUB (:DIESE 1) :R2) (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1)
   (PUSH (:DIESE 0)) (JSR (@ FIBO)) (PUSH :R0) (MOVE (LOC -1 0) :R0) (PUSH :R0) (MOVE (:DIESE 2) :R0) (PUSH :R0)
   (POP :R1) (POP :R0) (SUB :R1 :R0) (PUSH :R0) (PUSH (:DIESE 1)) (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2)
   (SUB (:DIESE 1) :R2) (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1) (PUSH (:DIESE 0)) (JSR (@ FIBO)) (PUSH :R0) (POP :R1)
   (POP :R0) (ADD :R1 :R0) (@ finSi1) (RTN) (SORTIEFONCTION))"))
 (SETQ FIBO2
  (READ-FROM-STRING
   "((MOVE (:DIESE 5) :R0) (PUSH :R0) (PUSH (:DIESE 1)) (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2) (SUB (:DIESE 1) :R2)
  (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1) (PUSH (:DIESE 0)) (JSR (@ FIBO)))"))
 (LOAD-VM VM FIBO1) (LOAD-VM VM FIBO2) (RUN-VM VM))
[1824] «frame» APPLY pour l'application (TEST)
<30/1821>
#<FUNCTION TEST NIL (DECLARE (SYSTEM::IN-DEFUN TEST))
  (BLOCK TEST
   (LET ((VM (MAKE-VM 10000)) FIBO1 FIBO2)
    (SETF FIBO1
     (READ-FROM-STRING
      "((ENTREEFONCTION) (@ FIBO) (MOVE (LOC -1 0) :R0) (PUSH :R0) (MOVE (:DIESE 2) :R0) (PUSH :R0) (POP :R0) (POP :R1) (CMP :R1 :R0)
   (MOVE (:DIESE T) :R0) (JL (@ finTest1)) (MOVE (:DIESE NIL) :R0) (@ finTest1) (CMP :R0 (:DIESE NIL))
   (JEQ (@ sinon1)) (MOVE (LOC -1 0) :R0) (JMP (@ finSi1)) (@ sinon1) (MOVE (LOC -1 0) :R0)
   (PUSH :R0) (MOVE (:DIESE 1) :R0) (PUSH :R0) (POP :R1) (POP :R0) (SUB :R1 :R0) (PUSH :R0) (PUSH (:DIESE 1))
   (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2) (SUB (:DIESE 1) :R2) (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1)
   (PUSH (:DIESE 0)) (JSR (@ FIBO)) (PUSH :R0) (MOVE (LOC -1 0) :R0) (PUSH :R0) (MOVE (:DIESE 2) :R0) (PUSH :R0)
   (POP :R1) (POP :R0) (SUB :R1 :R0) (PUSH :R0) (PUSH (:DIESE 1)) (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2)
   (SUB (:DIESE 1) :R2) (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1) (PUSH (:DIESE 0)) (JSR (@ FIBO)) (PUSH :R0) (POP :R1)
   (POP :R0) (ADD :R1 :R0) (@ finSi1) (RTN) (SORTIEFONCTION))"))
    (SETF FIBO2
     (READ-FROM-STRING
      "((MOVE (:DIESE 5) :R0) (PUSH :R0) (PUSH (:DIESE 1)) (MOVE :FP :R1) (MOVE :SP :FP) (MOVE :SP :R2) (SUB (:DIESE 1) :R2)
  (SUB (:DIESE 1) :R2) (PUSH :R2) (PUSH :R1) (PUSH (:DIESE 0)) (JSR (@ FIBO)))"))
    (LOAD-VM VM FIBO1) (LOAD-VM VM FIBO2) (RUN-VM VM)))> 0