API tools faq
paste
Advertisement
logicmoo

Interpreted System based regressions

logicmoo
Sep 2nd, 2015
277
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Prolog 20.89 KB | None | 0 0
raw download clone embed print report
  1. %M (Y) (SYSTEM::BACKQ-LIST (QUOTE CAR) Y))) (LET ((X (LIST 1))) (VALUES (SETF (%M X) 2) (1+ (CAR X)))))
  2. Expected values:
  3.           2
  4.           3
  5. Actual value:
  6.           #<#<org.armedbear.lisp.Symbol@5ec0a365> {48DC3BAA}> [The function (SETF %M) is undefined.]
  7.  SETF-SYMBOL-MACRO.1 SETF-SYMBOL-MACRO.2 SETF-SYMBOL-MACRO.3 SETQ.1
  8.  SETQ.2 SETQ.3 SETQ.4 SETQ.5 SETQ.6 SETQ.7 SETF.1 SETF.2 SETF.3 SETF.4
  9.  SETF.5 SETF.6
  10. Test SETF.7 failed
  11. Form: (MACROLET ((%M (Z) Z)) (LET ((X NIL)) (VALUES X (SETF (EXPAND-IN-CURRENT-ENV (%M X)) T) X)))
  12. Expected values:
  13.           NIL
  14.           T
  15.           T
  16. Actual value:
  17.           #<#<org.armedbear.lisp.Symbol@5ec0a365> {780CAD88}> [The function (SETF %M) is undefined.]
  18.  SETF.8 PSETQ.1 PSETQ.2 PSETQ.3 PSETQ.4 PSETQ.5 PSETQ.6
  19. Test PSETQ.7 failed
  20. Form: (SYMBOL-MACROLET ((X (AREF A (INCF I))) (Y (AREF A (INCF I)))) (LET ((A (COPY-SEQ #(0 1 2 3 4 5 6 7 8 9))) (I 0)) (PSETQ X (AREF A (INCF I)) Y (AREF A (INCF I))) (VALUES A I)))
  21. Expected values:
  22.           #(0 2 2 4 4 5 6 7 8 9)
  23.           4
  24. Actual values:
  25.           #(0 1 2 1 2 5 6 7 8 9)
  26.           4
  27.  PSETQ.8 PSETQ.9 PSETQ.10 PSETQ.ERROR.1 PSETQ.ERROR.2 PSETQ.ERROR.3
  28.  PSETF.ORDER.1 PSETF.ORDER.2 PSETF.1 PSETF.2 PSETF.3 PSETF.4 PSETF.5
  29.  PSETF.6 PSETF.7 PSETF.8 PSETF.9 PSETF.10 PSETF.11 PSETF.ERROR.1
  30.  PSETF.12 PSETF.12A PSETF.13 PSETF.13A PSETF.14 PSETF.15 PSETF.16
  31.  PSETF.17 PSETF.18 PSETF.18A PSETF.19 PSETF.20 PSETF.21 PSETF.22
  32.  PSETF.23 PSETF.24 PSETF.25 PSETF.26 PSETF.27 PSETF.28 PSETF.29 PSETF.30
  33.  PSETF.31 PSETF.32 PSETF.33 PSETF.34 PSETF.35 PSETF.36
  34. Test PSETF.37 failed
  35. Form: (LET ((B1 (BYTE 3 1)) (B2 (BYTE 4 2)) (X 51925) (Y 13638) (M1 21869) (M2 15541)) (PSETF (MASK-FIELD B1 X) M1 (MASK-FIELD B2 Y) M2) (VALUES X Y))
  36. Expected values:
  37.           51933
  38.           13686
  39. Actual value:
  40.           #<#<org.armedbear.lisp.Symbol@5ec0a365> {59E9CB2B}> [The function (SETF MASK-FIELD) is undefined.]
  41.  PSETF.38 PSETF.39 PSETF.40 SHIFTF-ORDER.1 SHIFTF-ORDER.2 SHIFTF.1
  42.  SHIFTF.2 SHIFTF.3 SHIFTF.4 SHIFTF.5 SHIFTF.6 ROTATEF-ORDER.1
  43.  ROTATEF-ORDER.2 ROTATEF.1 ROTATEF.2 ROTATEF.3 ROTATEF.4 ROTATEF.5
  44.  ROTATEF.6 ROTATEF.7 ROTATEF.8 ROTATEF.9 ROTATEF.10 ROTATEF.11
  45.  ROTATEF.12 ROTATEF.13 ROTATEF.14 ROTATEF.15 ROTATEF.16 ROTATEF.17
  46.  ROTATEF.18 ROTATEF.21 ROTATEF.22 ROTATEF.23 ROTATEF.24 ROTATEF.25
  47.  ROTATEF.26 ROTATEF.27 ROTATEF.28 ROTATEF.29 ROTATEF.30 ROTATEF.31
  48.  ROTATEF.32 ROTATEF.33 ROTATEF.34 ROTATEF.35 ROTATEF.36 ROTATEF.37
  49.  RETURN.ERROR.1 RETURN.ERROR.2 RETURN.ERROR.3 RETURN.1 RETURN.2 RETURN.3
  50.  RETURN-FROM.1 RETURN-FROM.2 RETURN-FROM.3 DEFSETF.ERROR.1 DEFSETF.1
  51.  DEFSETF.2A DEFSETF.2B DEFSETF.3A DEFSETF.3B DEFSETF.3C DEFSETF.4A
  52.  DEFSETF.4B DEFSETF.4C DEFSETF.5A DEFSETF.6A
  53.  DEFINE-SETF-EXPANDER.ERROR.1 DEFINE-SETF-EXPANDER.1
  54.  DEFINE-SETF-EXPANDER.2 DEFINE-SETF-EXPANDER.3 DEFINE-SETF-EXPANDER.4
  55.  DEFINE-SETF-EXPANDER.5 DEFINE-SETF-EXPANDER.6 DEFINE-SETF-EXPANDER.7
  56.  AND.1 AND.2 AND.3 AND.4 AND.5 AND.6 AND.7 AND.8 AND.9 AND.10
  57.  AND.ORDER.1 AND.ORDER.2 AND.ERROR.1 AND.ERROR.2 AND.ERROR.3
  58.  APPLY.ERROR.1 APPLY.ERROR.2 APPLY.ERROR.3 APPLY.ERROR.4 APPLY.1 APPLY.2
  59.  APPLY.3 APPLY.4 APPLY.5 APPLY.6 APPLY.7 APPLY.8 APPLY.ORDER.1 BLOCK.1
  60.  BLOCK.2 BLOCK.3 BLOCK.4 BLOCK.5 BLOCK.6 BLOCK.7 BLOCK.8 BLOCK.9
  61.  BLOCK.10 BLOCK.11 BLOCK.12 CALL-ARGUMENTS-LIMIT.1
  62.  CALL-ARGUMENTS-LIMIT.2 CALL-ARGUMENTS-LIMIT.3 CALL-ARGUMENTS-LIMIT.4
  63.  CALL-ARGUMENTS-LIMIT.5 CASE.1 CASE.2 CASE.3 CASE.4 CASE.5 CASE.6 CASE.7
  64.  CASE.8 CASE.9 CASE.10 CASE.11 CASE.12 CASE.13 CASE.14 CASE.15 CASE.16
  65.  CASE.17 CASE.18 CASE.19 CASE.20 CASE.21 CASE.22 CASE.23 CASE.24 CASE.25
  66.  CASE.26 CASE.27 CASE.28 CASE.29 CASE.30 CASE.31 CASE.32 CASE.33 CASE.34
  67.  CASE.35 CASE.36 CASE.37 CASE.ERROR.1 CASE.ERROR.2 CASE.ERROR.3 CATCH.1
  68.  CATCH.2 CATCH.3 CATCH.4 CATCH.5 CATCH.7 CATCH.8 CATCH.9 CATCH.10
  69.  CATCH.11 CATCH.12 CATCH.13 CATCH.14 CATCH.15 CATCH.16 THROW-ERROR
  70.  CCASE.1 CCASE.2 CCASE.3 CCASE.4 CCASE.5 CCASE.6 CCASE.7 CCASE.8 CCASE.9
  71.  CCASE.10 CCASE.11 CCASE.12 CCASE.13 CCASE.14 CCASE.15 CCASE.16 CCASE.17
  72.  CCASE.19 CCASE.20 CCASE.21 CCASE.23 CCASE.25 CCASE.26 CCASE.27 CCASE.28
  73.  CCASE.29 CCASE.30 CCASE.31 CCASE.32 CCASE.33 CCASE.ERROR.1
  74.  CCASE.ERROR.2 CCASE.ERROR.3 COMPILED-FUNCTION-P.1 COMPILED-FUNCTION-P.2
  75.  COMPILED-FUNCTION-P.3 COMPILED-FUNCTION-P.ORDER.1
  76.  COMPILED-FUNCTION-P.ERROR.1 COMPILED-FUNCTION-P.ERROR.2 COMPLEMENT.1
  77.  COMPLEMENT.2 COMPLEMENT.3 COMPLEMENT.4 COMPLEMENT.5 COMPLEMENT.6
  78.  COMPLEMENT.7 COMPLEMENT.8 COMPLEMENT.9 COMPLEMENT.10 COMPLEMENT.ORDER.1
  79.  COMPLEMENT.ERROR.1 COMPLEMENT.ERROR.2 COMPLEMENT.ERROR.3
  80.  COMPLEMENT.ERROR.4 COMPLEMENT.ERROR.5 COMPLEMENT.ERROR.6
  81.  COMPLEMENT.ERROR.7 COND.1 COND.2 COND.3 COND.4 COND.5 COND.6 COND.7
  82.  COND.8 COND.9 COND.10 COND.11 COND.12 COND.13 COND.14 COND.15 COND.16
  83.  LABELS.49 LABELS.50 LABELS.51 LABELS.52 LAMBDA-LIST-KEYWORDS.1
  84.  LAMBDA-LIST-KEYWORDS.2 LAMBDA-LIST-KEYWORDS.3 LAMBDA-LIST-KEYWORDS.5
  85.  LAMBDA-PARAMETERS-LIMIT.1 LAMBDA-PARAMETERS-LIMIT.2 LET.1 LET.2 LET.3
  86.  LET.4 LET.5 LET.6 LET.7 LET.9 LET.11 LET.14 LET.15 LET.16 LET.17
  87.  LET.17A LET.18 LET.19 LET.20 LET.21 LET*.1 LET*.2 LET*.3 LET*.4 LET*.5
  88.  LET*.6 LET*.7 LET*.8 LET*.9 LET*.10 LET*.11 LET*.12 LET*.14 LET*.15
  89.  LET*.16 LET*.17 LET*.17A LET*.18 LET*.19 LET*.20 LET*.21 LET*.22
  90.  LET*.23 MACROLET.1
  91. Test MACROLET.2 failed
  92. Form: (LET ((Z (LIST 3 4))) (MACROLET ((%M (X) (SYSTEM::BACKQ-LIST (QUOTE CAR) X))) (LET ((Y (LIST 1 2))) (VALUES (SETF (%M Y) 6) (SETF (%M Z) (QUOTE A)) Y Z))))
  93. Expected values:
  94.           6
  95.           A
  96.           (6 2)
  97.           (A 4)
  98. Actual value:
  99.           #<#<org.armedbear.lisp.Symbol@5ec0a365> {16E9D290}> [The function (SETF %M) is undefined.]
  100. Test MACROLET.3 failed
  101. Form: (MACROLET ((%M (W) (SYSTEM::BACKQ-LIST (QUOTE CADR) W))) (LET ((Z (LIST 3 4))) (MACROLET ((%M (X) (SYSTEM::BACKQ-LIST (QUOTE CAR) X))) (LET ((Y (LIST 1 2))) (VALUES (%M Y) (%M Z) (SETF (%M Y) 6) (SETF (%M Z) (QUOTE A)) Y Z)))))
  102. Expected values:
  103.           1
  104.           3
  105.           6
  106.           A
  107.           (6 2)
  108.           (A 4)
  109. Actual value:
  110.           #<#<org.armedbear.lisp.Symbol@5ec0a365> {19AF85B5}> [The function (SETF %M) is undefined.]
  111.  MACROLET.4 MACROLET.5 MACROLET.6 MACROLET.7 MACROLET.8 MACROLET.9
  112.  MACROLET.10 MACROLET.11 MACROLET.12 MACROLET.13 MACROLET.14 MACROLET.15
  113.  MACROLET.16 MACROLET.17 MACROLET.18 MACROLET.19 MACROLET.20 MACROLET.21
  114.  MACROLET.22 MACROLET.22A MACROLET.23 MACROLET.24 MACROLET.25
  115.  MACROLET.26 MACROLET.27 MACROLET.28 MACROLET.29 MACROLET.30 MACROLET.31
  116.  MACROLET.32 MACROLET.33 MACROLET.34 MACROLET.35 MACROLET.36 MACROLET.37
  117.  MACROLET.38 MACROLET.39 MACROLET.40 MACROLET.41 MACROLET.42 MACROLET.43
  118.  MACROLET.44 MACROLET.45 MACROLET.46 MACROLET.47 MACROLET.48 MACROLET.49
  119.  MACROLET.50 MACROLET.51 MACROLET.52 MULTIPLE-VALUE-BIND.1
  120.  MULTIPLE-VALUE-BIND.2 MULTIPLE-VALUE-BIND.3 MULTIPLE-VALUE-BIND.4
  121.  MULTIPLE-VALUE-BIND.5 MULTIPLE-VALUE-BIND.6 MULTIPLE-VALUE-BIND.7
  122.  MULTIPLE-VALUE-BIND.8 MULTIPLE-VALUE-BIND.9 MULTIPLE-VALUE-BIND.10
  123.  MULTIPLE-VALUE-BIND.11 MULTIPLE-VALUE-BIND.12 MULTIPLE-VALUE-BIND.13
  124.  MULTIPLE-VALUE-BIND.14 MULTIPLE-VALUE-BIND.ERROR.1
  125.  MULTIPLE-VALUE-BIND.ERROR.2 MULTIPLE-VALUE-BIND.ERROR.3
  126.  MULTIPLE-VALUE-CALL.1 MULTIPLE-VALUE-CALL.2 MULTIPLE-VALUE-CALL.3
  127.  MULTIPLE-VALUE-CALL.4 MULTIPLE-VALUE-CALL.5 MULTIPLE-VALUE-PROG1.1
  128.  MULTIPLE-VALUE-PROG1.2 MULTIPLE-VALUE-PROG1.3 MULTIPLE-VALUE-PROG1.4
  129.  MULTIPLE-VALUE-PROG1.5 MULTIPLE-VALUE-PROG1.6 MULTIPLE-VALUE-PROG1.7
  130.  MULTIPLE-VALUE-PROG1.8 MULTIPLE-VALUE-PROG1.9 MULTIPLE-VALUE-PROG1.10
  131.  MULTIPLE-VALUE-PROG1.11 MULTIPLE-VALUE-PROG1.12 MULTIPLE-VALUE-SETQ.1
  132.  MULTIPLE-VALUE-SETQ.2 MULTIPLE-VALUE-SETQ.3 MULTIPLE-VALUE-SETQ.4
  133. Test MULTIPLE-VALUE-SETQ.5 failed
  134. Form: (LET ((I 0) (X (LIST NIL))) (SYMBOL-MACROLET ((Y (CAR (PROGN (INCF I) X)))) (MULTIPLE-VALUE-SETQ (Y) I)) X)
  135. Expected value:
  136.           (1)
  137. Actual value:
  138.           (0)
  139.  MULTIPLE-VALUE-SETQ.6 MULTIPLE-VALUE-SETQ.7
  140. Test MULTIPLE-VALUE-SETQ.8 failed
  141. Form: (LET ((X (LIST NIL)) (Z (LIST NIL)) (I 0)) (SYMBOL-MACROLET ((Y (CAR (PROGN (INCF I 3) X))) (W (CAR (PROGN (INCF I I) Z)))) (MULTIPLE-VALUE-SETQ (Y W) (VALUES I 10))) (VALUES X Z))
  142. Expected values:
  143.           (6)
  144.           (10)
  145. Actual values:
  146.           (0)
  147.           (10)
  148.  MULTIPLE-VALUE-SETQ.9 MULTIPLE-VALUE-SETQ.10 MULTIPLE-VALUE-SETQ.11
  149.  MULTIPLE-VALUE-SETQ.12 MULTIPLE-VALUE-SETQ.13 MULTIPLE-VALUE-SETQ.14
  150.  MULTIPLE-VALUE-SETQ.15
  151. Test MULTIPLE-VALUE-SETQ.16 failed
  152. Form: (MACROLET ((%M (Z) Z)) (LET ((X :BAD)) (SYMBOL-MACROLET ((Z (EXPAND-IN-CURRENT-ENV (%M X)))) (MULTIPLE-VALUE-SETQ (Z) :GOOD)) X))
  153. Expected value:
  154.           :GOOD
  155. Actual value:
  156.           #<#<org.armedbear.lisp.Symbol@5ec0a365> {6FF0B42E}> [The function (SETF %M) is undefined.]
  157.  MULTIPLE-VALUE-SETQ.17 MULTIPLE-VALUE-SETQ.ERROR.1
  158.  MULTIPLE-VALUE-SETQ.ERROR.2 MULTIPLE-VALUE-SETQ.ERROR.3
  159.  MULTIPLE-VALUE-LIST.1 MULTIPLE-VALUE-LIST.2 MULTIPLE-VALUE-LIST.3
  160.  MULTIPLE-VALUE-LIST.4 MULTIPLE-VALUE-LIST.5 MULTIPLE-VALUE-LIST.6
  161.  MULTIPLE-VALUE-LIST.7 MULTIPLE-VALUE-LIST.8 MULTIPLE-VALUE-LIST.9
  162.  MULTIPLE-VALUE-LIST.ORDER.1 MULTIPLE-VALUE-LIST.ERROR.1
  163.  MAKE-LIST.ALLOW-OTHER-KEYS.3 MAKE-LIST.ALLOW-OTHER-KEYS.4
  164.  MAKE-LIST.ALLOW-OTHER-KEYS.5 MAKE-LIST-REPEATED-KEYWORD
  165.  MAKE-LIST.ORDER.1 MAKE-LIST.ORDER.2 MAKE-LIST.FOLD.1 MAKE-LIST.FOLD.2
  166.  MAKE-LIST.ERROR.1 MAKE-LIST.ERROR.3 MAKE-LIST.ERROR.4 MAKE-LIST.ERROR.5
  167.  MAKE-LIST.ERROR.6 MAKE-LIST.ERROR.7 MAKE-LIST.ERROR.8 PUSH.1 PUSH.2
  168.  PUSH.3 PUSH.4
  169. Test PUSH.5 failed
  170. Form: (MACROLET ((%M (Z) Z)) (LET ((X NIL)) (VALUES (PUSH 1 (EXPAND-IN-CURRENT-ENV (%M X))) X)))
  171. Expected values:
  172.           (1)
  173.           (1)
  174. Actual value:
  175.           #<#<org.armedbear.lisp.Symbol@5ec0a365> {30FA6C3F}> [The function (SETF %M) is undefined.]
  176.  PUSH.ORDER.1 PUSH.ORDER.2 PUSH.ORDER.3 PUSH.ERROR.1 POP.1 POP.2
  177. Test POP.3 failed
  178. Form: (MACROLET ((%M (Z) Z)) (LET ((X (LIST (QUOTE A) (QUOTE B) (QUOTE C)))) (VALUES (POP (EXPAND-IN-CURRENT-ENV (%M X))) X)))
  179. Expected values:
  180.           A
  181.           (B C)
  182. Actual value:
  183.           #<#<org.armedbear.lisp.Symbol@5ec0a365> {3ED6E172}> [The function (SETF %M) is undefined.]
  184.  POP.ORDER.1 PUSH-AND-POP POP.ERROR.1 PUSHNEW.1 PUSHNEW.2 PUSHNEW.3
  185.  PUSHNEW.4 PUSHNEW.5 PUSHNEW.6 PUSHNEW.7 PUSHNEW.8 PUSHNEW.9 PUSHNEW.10
  186.  PUSHNEW.11 PUSHNEW.12 PUSHNEW.13 PUSHNEW.14 PUSHNEW.15 PUSHNEW.16
  187.  PUSHNEW.17 PUSHNEW.18 PUSHNEW.19 PUSHNEW.20
  188. Test PUSHNEW.21 failed
  189. Form: (MACROLET ((%M (Z) Z)) (LET ((X NIL)) (VALUES (PUSHNEW 1 (EXPAND-IN-CURRENT-ENV (%M X))) X)))
  190. Expected values:
  191.           (1)
  192.           (1)
  193. Actual value:
  194.           #<#<org.armedbear.lisp.Symbol@5ec0a365> {7D3B682D}> [The function (SETF %M) is undefined.]
  195.  PUSHNEW.22 PUSHNEW.23 PUSHNEW.24 PUSHNEW.TEST-AND-TEST-NOT.1
  196.  PUSHNEW.TEST-AND-TEST-NOT.2 PUSHNEW.ORDER.1 PUSHNEW.ORDER.2
  197.  PUSHNEW.ORDER.3 PUSHNEW.ERROR.1 PUSHNEW.ERROR.2 PUSHNEW.ERROR.3
  198.  ENSURE-DIRECTORIES-EXIST.2 ENSURE-DIRECTORIES-EXIST.3
  199.  ENSURE-DIRECTORIES-EXIST.4 ENSURE-DIRECTORIES-EXIST.5
  200.  ENSURE-DIRECTORIES-EXIST.6 ENSURE-DIRECTORIES-EXIST.7
  201. Test ENSURE-DIRECTORIES-EXIST.8 failed
  202. Form: (LET* ((SUBDIR (MAKE-PATHNAME :DIRECTORY (QUOTE (:RELATIVE "scratch")) :DEFAULTS *DEFAULT-PATHNAME-DEFAULTS*)) (PN (MAKE-PATHNAME :NAME "foo" :TYPE "txt" :DEFAULTS SUBDIR))) (ASSERT (NOT (PROBE-FILE PN)) NIL "Delete subdirectory scratch and its contents!") (LET* ((RESULTS NIL) (VERBOSITY (WITH-OUTPUT-TO-STRING (*STANDARD-OUTPUT*) (SETQ RESULTS (MULTIPLE-VALUE-LIST (ENSURE-DIRECTORIES-EXIST PN))))) (RESULT-PN (FIRST RESULTS)) (CREATED (SECOND RESULTS))) (WITH-OPEN-FILE (*STANDARD-OUTPUT* PN :DIRECTION :OUTPUT :IF-EXISTS :ERROR :IF-DOES-NOT-EXIST :CREATE) (PRINT NIL)) (VALUES (LENGTH RESULTS) (NOTNOT CREATED) (EQUALT PN RESULT-PN) (NOTNOT (PROBE-FILE PN)) VERBOSITY)))
  203. Expected values:
  204.           2
  205.           T
  206.           T
  207.           T
  208.           ""
  209. Actual value:
  210.           #<#<org.armedbear.lisp.Symbol@31610302> {544D7375}> [Delete subdirectory scratch and its contents!]
  211.  ENSURE-DIRECTORIES-EXIST.9 ENSURE-DIRECTORIES-EXIST.ERROR.1
  212.  ENSURE-DIRECTORIES-EXIST.ERROR.2 TRUENAME.1 TRUENAME.2 TRUENAME.3
  213.  TRUENAME.4 TRUENAME.5 TRUENAME.6 TRUENAME.ERROR.1 TRUENAME.ERROR.2
  214.  TRUENAME.ERROR.3 TRUENAME.ERROR.4 TRUENAME.ERROR.5 TRUENAME.ERROR.6
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!