(setf *LOL-ENVIRONNEMENT* "DEFAULT-ENV")


(in-package :LOL)
(EVAL-WHEN (LOAD EVAL COMPILE)
                       (DATABASE:MAKESYMS '.%%SL%%. 0 33 "LOL"))

(SETQ SITUATION-415 (LET* ((.%%SL%%.34 (DATABASE::%ALLOCATE-INSTANCE 'TEMPS)) (.%%SL%%.33 (DATABASE::%ALLOCATE-INSTANCE 'ADDRESS)) (.%%SL%%.32 (DATABASE::%ALLOCATE-INSTANCE 'CONTACT)) (.%%SL%%.31 (DATABASE::%ALLOCATE-INSTANCE 'CURVE)) (.%%SL%%.30 (DATABASE::%ALLOCATE-INSTANCE 'FLEXION)) (.%%SL%%.29 (DATABASE::%ALLOCATE-INSTANCE 'DISTANCE)) (.%%SL%%.28 (DATABASE::%ALLOCATE-INSTANCE 'ROTATION)) (.%%SL%%.27 (DATABASE::%ALLOCATE-INSTANCE 'DIRECTION)) (.%%SL%%.26 (DATABASE::%ALLOCATE-INSTANCE 'LEVEL)) (.%%SL%%.25 (DATABASE::%ALLOCATE-INSTANCE 'SUPPORT)) (.%%SL%%.24 (DATABASE::%ALLOCATE-INSTANCE 'PIED)) (.%%SL%%.23 (DATABASE::%ALLOCATE-INSTANCE 'ADDRESS)) (.%%SL%%.22 (DATABASE::%ALLOCATE-INSTANCE 'CONTACT)) (.%%SL%%.21 (DATABASE::%ALLOCATE-INSTANCE 'CURVE)) (.%%SL%%.20 (DATABASE::%ALLOCATE-INSTANCE 'FLEXION)) (.%%SL%%.19 (DATABASE::%ALLOCATE-INSTANCE 'DISTANCE)) (.%%SL%%.18 (DATABASE::%ALLOCATE-INSTANCE 'ROTATION)) (.%%SL%%.17 (DATABASE::%ALLOCATE-INSTANCE 'DIRECTION)) (.%%SL%%.16 (DATABASE::%ALLOCATE-INSTANCE 'LEVEL)) (.%%SL%%.15 (DATABASE::%ALLOCATE-INSTANCE 'SUPPORT)) (.%%SL%%.14 (DATABASE::%ALLOCATE-INSTANCE 'TETE)) (.%%SL%%.13 (DATABASE::%ALLOCATE-INSTANCE 'POINT)) (.%%SL%%.12 (DATABASE::%ALLOCATE-INSTANCE 'ADDRESS)) (.%%SL%%.11 (DATABASE::%ALLOCATE-INSTANCE 'CONTACT)) (.%%SL%%.10 (DATABASE::%ALLOCATE-INSTANCE 'CURVE)) (.%%SL%%.9 (DATABASE::%ALLOCATE-INSTANCE 'FLEXION)) (.%%SL%%.8 (DATABASE::%ALLOCATE-INSTANCE 'DISTANCE)) (.%%SL%%.7 (DATABASE::%ALLOCATE-INSTANCE 'ROTATION)) (.%%SL%%.6 (DATABASE::%ALLOCATE-INSTANCE 'DIRECTION)) (.%%SL%%.5 (DATABASE::%ALLOCATE-INSTANCE 'LEVEL)) (.%%SL%%.4 (DATABASE::%ALLOCATE-INSTANCE 'SUPPORT)) (.%%SL%%.3 (DATABASE::%ALLOCATE-INSTANCE 'BRAS)) (.%%SL%%.2 (DATABASE::%ALLOCATE-INSTANCE 'SITUATION))) (DATABASE::FILL-INSTANCE .%%SL%%.2 (LIST NIL (LIST (DATABASE::FILL-INSTANCE .%%SL%%.3 (LIST 0 (LIST (DATABASE::FILL-INSTANCE .%%SL%%.4 (LIST 'YES NIL :ABSOLUTE :SUPPORT :CRISPY #2=(LIST 'W! 'NO 'YES))) (DATABASE::FILL-INSTANCE .%%SL%%.5 (LIST 'W! NIL :ABSOLUTE :LEVEL :CRISPY #3=(LIST 'W! 'M 'B 'H))) (DATABASE::FILL-INSTANCE .%%SL%%.6 (LIST 'W! NIL :ABSOLUTE :DIRECTION :CRISPY #4=(LIST 'W! 'P 1 2 3 4 5 6 7 8))) (DATABASE::FILL-INSTANCE .%%SL%%.7 (LIST 'W! NIL :ABSOLUTE :ROTATION :CRISPY #1=(LIST 'W! -2 -1 1 2 3))) (DATABASE::FILL-INSTANCE .%%SL%%.8 (LIST 'W! NIL :ABSOLUTE :DISTANCE :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.9 (LIST 'W! NIL :ABSOLUTE :FLEXION :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.10 (LIST 'W! NIL :ABSOLUTE :CURVE :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.11 (LIST 'W! NIL :ABSOLUTE :CONTACT :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.12 (LIST 'W! NIL :ABSOLUTE :ADDRESS :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.13 (LIST 5 NIL :ABSOLUTE 'DIMENSION :CRISPY #5=(LIST NIL 1 2 3 4 5 6 7 8)))) 3197220552 "BRAS")) (DATABASE::FILL-INSTANCE .%%SL%%.14 (LIST 0 (LIST (DATABASE::FILL-INSTANCE .%%SL%%.15 (LIST 'W! NIL :ABSOLUTE :SUPPORT :CRISPY #2#)) (DATABASE::FILL-INSTANCE .%%SL%%.16 (LIST 'W! NIL :ABSOLUTE :LEVEL :CRISPY #3#)) (DATABASE::FILL-INSTANCE .%%SL%%.17 (LIST 'W! NIL :ABSOLUTE :DIRECTION :CRISPY #4#)) (DATABASE::FILL-INSTANCE .%%SL%%.18 (LIST 'W! NIL :ABSOLUTE :ROTATION :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.19 (LIST 'W! NIL :ABSOLUTE :DISTANCE :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.20 (LIST 'W! NIL :ABSOLUTE :FLEXION :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.21 (LIST 'W! NIL :ABSOLUTE :CURVE :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.22 (LIST 'W! NIL :ABSOLUTE :CONTACT :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.23 (LIST 'W! NIL :ABSOLUTE :ADDRESS :CRISPY #1#))) NIL "TETE")) (DATABASE::FILL-INSTANCE .%%SL%%.24 (LIST 0 (LIST (DATABASE::FILL-INSTANCE .%%SL%%.25 (LIST 'NO NIL :ABSOLUTE :SUPPORT :CRISPY #2#)) (DATABASE::FILL-INSTANCE .%%SL%%.26 (LIST 'W! NIL :ABSOLUTE :LEVEL :CRISPY #3#)) (DATABASE::FILL-INSTANCE .%%SL%%.27 (LIST 'W! NIL :ABSOLUTE :DIRECTION :CRISPY #4#)) (DATABASE::FILL-INSTANCE .%%SL%%.28 (LIST 'W! NIL :ABSOLUTE :ROTATION :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.29 (LIST 'W! NIL :ABSOLUTE :DISTANCE :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.30 (LIST 'W! NIL :ABSOLUTE :FLEXION :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.31 (LIST 'W! NIL :ABSOLUTE :CURVE :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.32 (LIST 'W! NIL :ABSOLUTE :CONTACT :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.33 (LIST 'W! NIL :ABSOLUTE :ADDRESS :CRISPY #1#)) (DATABASE::FILL-INSTANCE .%%SL%%.34 (LIST 6 NIL :ABSOLUTE 'DIMENSION-416 :CRISPY #5#))) 3197220560 "PIED"))) 14592000 3197220507 (LIST 'SUPPORT 'LEVEL 'DIRECTION 'ROTATION 'DISTANCE 'FLEXION 'CURVE 'CONTACT 'ADDRESS 'POINT 'TEMPS) 3197220546 "SITUATION-415"))))