home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / historic / v941.tgz / icon.v941src.tar / icon.v941src / ipl / packs / skeem / test.std < prev   
Text File  |  2001-06-21  |  26KB  |  1,181 lines
  1. CUR-SECTION
  2. ERRS
  3. SECTION
  4. RECORD-ERROR
  5. TEST
  6. REPORT-ERRS
  7. SECTION(2 1)
  8. #t
  9. (+ - ... !.. $.+ %.- &.! *.: /:. :+. <-. =. >. ?. ~. _. ^.)
  10. SECTION(3 4)
  11. #t
  12. DISJOINT-TYPE-FUNCTIONS
  13. TYPE-EXAMPLES
  14. I
  15.  #<procedure BOOLEAN_P>
  16.     #<procedure CHAR_P>
  17.        #<procedure NULL_P>
  18.           #<procedure NUMBER_P>
  19.              #<procedure PAIR_P>
  20.                 #<procedure PROCEDURE_P>
  21.                    #<procedure STRING_P>
  22.                       #<procedure SYMBOL_P>
  23.                          #<procedure VECTOR_P>
  24. #<output &output>
  25. (#t #f #f #f #f #f #f #f #f)#t
  26. (#t #f #f #f #f #f #f #f #f)#f
  27. (#f #t #f #f #f #f #f #f #f)#\a
  28. (#f #f #t #f #f #f #f #f #f)()
  29. (#f #f #f #t #f #f #f #f #f)9739
  30. (#f #f #f #f #t #f #f #f #f)(TEST)
  31. (#f #f #f #f #f #t #f #f #f)#<interpreted function RECORD-ERROR>
  32. (#f #f #f #f #f #f #t #f #f)"test"
  33. (#f #f #f #f #f #f #t #f #f)""
  34. (#f #f #f #f #f #f #f #t #f)TEST
  35. (#f #f #f #f #f #f #f #f #t)#()
  36. (#f #f #f #f #f #f #f #f #t)#(A B C)
  37. TYPE-MATRIX
  38. SECTION(4 1 2)
  39. #t
  40. (QUOTE (QUOTE A))  ==> (QUOTE A)
  41. #t
  42. (QUOTE (QUOTE A))  ==> (QUOTE A)
  43. #t
  44. SECTION(4 1 3)
  45. #t
  46. (#<procedure MULTIPLY> 3 4)  ==> 12
  47. #t
  48. SECTION(4 1 4)
  49. #t
  50. (#<interpreted function ???> 4)  ==> 8
  51. #t
  52. REVERSE-SUBTRACT
  53. (#<interpreted function REVERSE-SUBTRACT> 7 10)  ==> 3
  54. #t
  55. ADD4
  56. (#<interpreted function ADD4> 6)  ==> 10
  57. #t
  58. (#<interpreted function ???> 3 4 5 6)  ==> (3 4 5 6)
  59. #t
  60. (#<interpreted function ???> 3 4 5 6)  ==> (5 6)
  61. #t
  62. SECTION(4 1 5)
  63. #t
  64. (IF YES)  ==> YES
  65. #t
  66. (IF NO)  ==> NO
  67. #t
  68. (IF 1)  ==> 1
  69. #t
  70. SECTION(4 1 6)
  71. #t
  72. X
  73. (DEFINE 3)  ==> 3
  74. #t
  75. 4
  76. (SET! 5)  ==> 5
  77. #t
  78. SECTION(4 2 1)
  79. #t
  80. (COND GREATER)  ==> GREATER
  81. #t
  82. (COND EQUAL)  ==> EQUAL
  83. #t
  84. (COND 2)  ==> 2
  85. #t
  86. (CASE COMPOSITE)  ==> COMPOSITE
  87. #t
  88. (CASE CONSONANT)  ==> CONSONANT
  89. #t
  90. (AND #t)  ==> #t
  91. #t
  92. (AND #f)  ==> #f
  93. #t
  94. (AND (F G))  ==> (F G)
  95. #t
  96. (AND #t)  ==> #t
  97. #t
  98. (OR #t)  ==> #t
  99. #t
  100. (OR #t)  ==> #t
  101. #t
  102. (OR #f)  ==> #f
  103. #t
  104. (OR #f)  ==> #f
  105. #t
  106. (OR (B C))  ==> (B C)
  107. #t
  108. SECTION(4 2 2)
  109. #t
  110. (LET 6)  ==> 6
  111. #t
  112. (LET 35)  ==> 35
  113. #t
  114. (LET* 70)  ==> 70
  115. #t
  116. (LETREC #t)  ==> #t
  117. #t
  118. X
  119. (LET 5)  ==> 5
  120. #t
  121. (LET 34)  ==> 34
  122. #t
  123. (LET 6)  ==> 6
  124. #t
  125. (LET 34)  ==> 34
  126. #t
  127. (LET* 7)  ==> 7
  128. #t
  129. (LET* 34)  ==> 34
  130. #t
  131. (LET* 8)  ==> 8
  132. #t
  133. (LET* 34)  ==> 34
  134. #t
  135. (LETREC 9)  ==> 9
  136. #t
  137. (LETREC 34)  ==> 34
  138. #t
  139. (LETREC 10)  ==> 10
  140. #t
  141. (LETREC 34)  ==> 34
  142. #t
  143. SECTION(4 2 3)
  144. #t
  145. X
  146. (BEGIN 6)  ==> 6
  147. #t
  148. SECTION(4 2 4)
  149. #t
  150. (DO #(0 1 2 3 4))  ==> #(0 1 2 3 4)
  151. #t
  152. (DO 25)  ==> 25
  153. #t
  154. (LET 1)  ==> 1
  155. #t
  156. (LET ((6 1 3) (-5 -2)))  ==> ((6 1 3) (-5 -2))
  157. #t
  158. SECTION(4 2 6)
  159. #t
  160. (QUASIQUOTE (LIST 3 4))  ==> (LIST 3 4)
  161. #t
  162. (QUASIQUOTE (LIST A (QUOTE A)))  ==> (LIST A (QUOTE A))
  163. #t
  164. (QUASIQUOTE (A 3 4 5 6 B))  ==> (A 3 4 5 6 B)
  165. #t
  166. (QUASIQUOTE ((FOO 7) . CONS))  ==> ((FOO 7) . CONS)
  167. #t
  168. SQT
  169. (QUASIQUOTE #(10 5 2 4 3 8))  ==> #(10 5 2 4 3 8)
  170. #t
  171. (QUASIQUOTE 5)  ==> 5
  172. #t
  173. (QUASIQUOTE (A (QUASIQUOTE (B (UNQUOTE (+ 1 2)) (UNQUOTE (FOO 4 D)) E)) F))  ==> (A (QUASIQUOTE (B (UNQUOTE (+ 1 2)) (UNQUOTE (FOO 4 D)) E)) F)
  174. #t
  175. (QUASIQUOTE (A (QUASIQUOTE (B (UNQUOTE X) (UNQUOTE (QUOTE Y)) D)) E))  ==> (A (QUASIQUOTE (B (UNQUOTE X) (UNQUOTE (QUOTE Y)) D)) E)
  176. #t
  177. (QUASIQUOTE (LIST 3 4))  ==> (LIST 3 4)
  178. #t
  179. (QUASIQUOTE (QUASIQUOTE (LIST (UNQUOTE (+ 1 2)) 4)))  ==> (QUASIQUOTE (LIST (UNQUOTE (+ 1 2)) 4))
  180. #t
  181. SECTION(5 2 1)
  182. #t
  183. ADD3
  184. (DEFINE 6)  ==> 6
  185. #t
  186. FIRST
  187. (DEFINE 1)  ==> 1
  188. #t
  189. SECTION(5 2 2)
  190. #t
  191. (DEFINE 45)  ==> 45
  192. #t
  193. X
  194. FOO
  195. (#<interpreted function FOO>)  ==> 5
  196. #t
  197. (DEFINE 34)  ==> 34
  198. #t
  199. FOO
  200. (#<interpreted function FOO>)  ==> 5
  201. #t
  202. (DEFINE 34)  ==> 34
  203. #t
  204. FOO
  205. (#<interpreted function FOO> 88)  ==> 88
  206. #t
  207. (#<interpreted function FOO> 4)  ==> 4
  208. #t
  209. (DEFINE 34)  ==> 34
  210. #t
  211. SECTION(6 1)
  212. #t
  213. (#<procedure NOT> #t)  ==> #f
  214. #t
  215. (#<procedure NOT> 3)  ==> #f
  216. #t
  217. (#<procedure NOT> (3))  ==> #f
  218. #t
  219. (#<procedure NOT> #f)  ==> #t
  220. #t
  221. (#<procedure NOT> ())  ==> #f
  222. #t
  223. (#<procedure NOT> ())  ==> #f
  224. #t
  225. (#<procedure NOT> NIL)  ==> #f
  226. #t
  227. (#<procedure BOOLEAN_P> #f)  ==> #t
  228. #t
  229. (#<procedure BOOLEAN_P> 0)  ==> #f
  230. #t
  231. (#<procedure BOOLEAN_P> ())  ==> #f
  232. #t
  233. SECTION(6 2)
  234. #t
  235. (#<procedure EQV_P> A A)  ==> #t
  236. #t
  237. (#<procedure EQV_P> A B)  ==> #f
  238. #t
  239. (#<procedure EQV_P> 2 2)  ==> #t
  240. #t
  241. (#<procedure EQV_P> () ())  ==> #t
  242. #t
  243. (#<procedure EQV_P> 10000 10000)  ==> #t
  244. #t
  245. (#<procedure EQV_P> (1 . 2) (1 . 2))  ==> #f
  246. #t
  247. (#<procedure EQV_P> #<interpreted function ???> #<interpreted function ???>)  ==> #f
  248. #t
  249. (#<procedure EQV_P> #f NIL)  ==> #f
  250. #t
  251. (#<procedure EQV_P> #<interpreted function ???> #<interpreted function ???>)  ==> #t
  252. #t
  253. GEN-COUNTER
  254. (#<procedure EQV_P> #<interpreted function ???> #<interpreted function ???>)  ==> #t
  255. #t
  256. (#<procedure EQV_P> #<interpreted function ???> #<interpreted function ???>)  ==> #f
  257. #t
  258. (#<procedure EQV_P> #<interpreted function ???> #<interpreted function ???>)  ==> #f
  259. #t
  260. (#<procedure EQ_P> A A)  ==> #t
  261. #t
  262. (#<procedure EQ_P> (A) (A))  ==> #f
  263. #t
  264. (#<procedure EQ_P> () ())  ==> #t
  265. #t
  266. (#<procedure EQ_P> #<procedure CAR> #<procedure CAR>)  ==> #t
  267. #t
  268. (#<procedure EQ_P> (A) (A))  ==> #t
  269. #t
  270. (#<procedure EQ_P> #() #())  ==> #t
  271. #t
  272. (#<procedure EQ_P> #<interpreted function ???> #<interpreted function ???>)  ==> #t
  273. #t
  274. (#<procedure EQUAL_P> A A)  ==> #t
  275. #t
  276. (#<procedure EQUAL_P> (A) (A))  ==> #t
  277. #t
  278. (#<procedure EQUAL_P> (A (B) C) (A (B) C))  ==> #t
  279. #t
  280. (#<procedure EQUAL_P> "abc" "abc")  ==> #t
  281. #t
  282. (#<procedure EQUAL_P> 2 2)  ==> #t
  283. #t
  284. (#<procedure EQUAL_P> #(A A A A A) #(A A A A A))  ==> #t
  285. #t
  286. SECTION(6 3)
  287. #t
  288. (DOT (A B C D E))  ==> (A B C D E)
  289. #t
  290. X
  291. Y
  292. (#<procedure LIST_P> (A B C))  ==> #t
  293. #t
  294. 4
  295. (SET-CDR! (A . 4))  ==> (A . 4)
  296. #t
  297. (#<procedure EQV_P> (A . 4) (A . 4))  ==> #t
  298. #t
  299. (DOT (A B C . D))  ==> (A B C . D)
  300. #t
  301. (#<procedure LIST_P> (A . 4))  ==> #f
  302. #t
  303. (LIST? #f)  ==> #f
  304. #t
  305. (#<procedure PAIR_P> (A . B))  ==> #t
  306. #t
  307. (#<procedure PAIR_P> (A . 1))  ==> #t
  308. #t
  309. (#<procedure PAIR_P> (A B C))  ==> #t
  310. #t
  311. (#<procedure PAIR_P> ())  ==> #f
  312. #t
  313. (#<procedure PAIR_P> #(A B))  ==> #f
  314. #t
  315. (#<procedure CONS> A ())  ==> (A)
  316. #t
  317. (#<procedure CONS> (A) (B C D))  ==> ((A) B C D)
  318. #t
  319. (#<procedure CONS> "a" (B C))  ==> ("a" B C)
  320. #t
  321. (#<procedure CONS> A 3)  ==> (A . 3)
  322. #t
  323. (#<procedure CONS> (A B) C)  ==> ((A B) . C)
  324. #t
  325. (#<procedure CAR> (A B C))  ==> A
  326. #t
  327. (#<procedure CAR> ((A) B C D))  ==> (A)
  328. #t
  329. (#<procedure CAR> (1 . 2))  ==> 1
  330. #t
  331. (#<procedure CDR> ((A) B C D))  ==> (B C D)
  332. #t
  333. (#<procedure CDR> (1 . 2))  ==> 2
  334. #t
  335. (#<procedure LIST> A 7 C)  ==> (A 7 C)
  336. #t
  337. (#<procedure LIST>)  ==> ()
  338. #t
  339. (#<procedure LENGTH> (A B C))  ==> 3
  340. #t
  341. (#<procedure LENGTH> (A (B) (C D E)))  ==> 3
  342. #t
  343. (#<procedure LENGTH> ())  ==> 0
  344. #t
  345. (#<procedure APPEND> (X) (Y))  ==> (X Y)
  346. #t
  347. (#<procedure APPEND> (A) (B C D))  ==> (A B C D)
  348. #t
  349. (#<procedure APPEND> (A (B)) ((C)))  ==> (A (B) (C))
  350. #t
  351. (#<procedure APPEND>)  ==> ()
  352. #t
  353. (#<procedure APPEND> (A B) (C . D))  ==> (A B C . D)
  354. #t
  355. (#<procedure APPEND> () A)  ==> A
  356. #t
  357. (#<procedure REVERSE> (A B C))  ==> (C B A)
  358. #t
  359. (#<procedure REVERSE> (A (B C) D (E (F))))  ==> ((E (F)) D (B C) A)
  360. #t
  361. (#<procedure LIST_REF> (A B C D) 2)  ==> C
  362. #t
  363. (#<procedure MEMQ> A (A B C))  ==> (A B C)
  364. #t
  365. (#<procedure MEMQ> B (A B C))  ==> (B C)
  366. #t
  367. (#<procedure MEMQ> A (B C D))  ==> #f
  368. #t
  369. (#<procedure MEMQ> (A) (B (A) C))  ==> #f
  370. #t
  371. (#<procedure MEMBER> (A) (B (A) C))  ==> ((A) C)
  372. #t
  373. (#<procedure MEMV> 101 (100 101 102))  ==> (101 102)
  374. #t
  375. E
  376. (#<procedure ASSQ> A ((A 1) (B 2) (C 3)))  ==> (A 1)
  377. #t
  378. (#<procedure ASSQ> B ((A 1) (B 2) (C 3)))  ==> (B 2)
  379. #t
  380. (#<procedure ASSQ> D ((A 1) (B 2) (C 3)))  ==> #f
  381. #t
  382. (#<procedure ASSQ> (A) (((A)) ((B)) ((C))))  ==> #f
  383. #t
  384. (#<procedure ASSOC> (A) (((A)) ((B)) ((C))))  ==> ((A))
  385. #t
  386. (#<procedure ASSV> 5 ((2 3) (5 7) (11 13)))  ==> (5 7)
  387. #t
  388. SECTION(6 4)
  389. #t
  390. (#<procedure SYMBOL_P> FOO)  ==> #t
  391. #t
  392. (#<procedure SYMBOL_P> A)  ==> #t
  393. #t
  394. (#<procedure SYMBOL_P> "bar")  ==> #f
  395. #t
  396. (#<procedure SYMBOL_P> NIL)  ==> #t
  397. #t
  398. (#<procedure SYMBOL_P> ())  ==> #f
  399. #t
  400. (#<procedure SYMBOL_P> #f)  ==> #f
  401. #t
  402. CHAR-STANDARD-CASE
  403. #f
  404. (STANDARD-CASE #t)  ==> #t
  405. #t
  406. (STANDARD-CASE #t)  ==> #t
  407. #t
  408. STR-COPY
  409. STRING-STANDARD-CASE
  410. (#<procedure SYMBOL_2_STRING> FLYING-FISH)  ==> "FLYING-FISH"
  411. #t
  412. (#<procedure SYMBOL_2_STRING> MARTIN)  ==> "MARTIN"
  413. #t
  414. (#<procedure SYMBOL_2_STRING> |Malvina|)  ==> "Malvina"
  415. #t
  416. (STANDARD-CASE #t)  ==> #t
  417. #t
  418. X
  419. Y
  420. "cb"
  421. (STRING-SET! "cb")  ==> "cb"
  422. #t
  423. (#<procedure SYMBOL_2_STRING> |ab|)  ==> "ab"
  424. #t
  425. (#<procedure STRING_2_SYMBOL> "ab")  ==> |ab|
  426. #t
  427. (#<procedure EQ_P> MISSISSIPPI MISSISSIPPI)  ==> #t
  428. #t
  429. (STRING->SYMBOL #f)  ==> #f
  430. #t
  431. (#<procedure STRING_2_SYMBOL> "JOLLYWOG")  ==> JOLLYWOG
  432. #t
  433. SECTION(6 5 5)
  434. #t
  435. (#<procedure NUMBER_P> 3)  ==> #t
  436. #t
  437. (#<procedure COMPLEX_P> 3)  ==> #t
  438. #t
  439. (#<procedure REAL_P> 3)  ==> #t
  440. #t
  441. (#<procedure RATIONAL_P> 3)  ==> #t
  442. #t
  443. (#<procedure INTEGER_P> 3)  ==> #t
  444. #t
  445. (#<procedure EXACT_P> 3)  ==> #t
  446. #t
  447. (#<procedure INEXACT_P> 3)  ==> #f
  448. #t
  449. (#<procedure EQ> 22 22 22)  ==> #t
  450. #t
  451. (#<procedure EQ> 22 22)  ==> #t
  452. #t
  453. (#<procedure EQ> 34 34 35)  ==> #f
  454. #t
  455. (#<procedure EQ> 34 35)  ==> #f
  456. #t
  457. (#<procedure GT> 3 -6246)  ==> #t
  458. #t
  459. (#<procedure GT> 9 9 -2424)  ==> #f
  460. #t
  461. (#<procedure GE> 3 -4 -6246)  ==> #t
  462. #t
  463. (#<procedure GE> 9 9)  ==> #t
  464. #t
  465. (#<procedure GE> 8 9)  ==> #f
  466. #t
  467. (#<procedure LT> -1 2 3 4 5 6 7 8)  ==> #t
  468. #t
  469. (#<procedure LT> -1 2 3 4 4 5 6 7)  ==> #f
  470. #t
  471. (#<procedure LE> -1 2 3 4 5 6 7 8)  ==> #t
  472. #t
  473. (#<procedure LE> -1 2 3 4 4 5 6 7)  ==> #t
  474. #t
  475. (#<procedure LT> 1 3 2)  ==> #f
  476. #t
  477. (#<procedure GE> 1 3 2)  ==> #f
  478. #t
  479. (#<procedure ZERO_P> 0)  ==> #t
  480. #t
  481. (#<procedure ZERO_P> 1)  ==> #f
  482. #t
  483. (#<procedure ZERO_P> -1)  ==> #f
  484. #t
  485. (#<procedure ZERO_P> -100)  ==> #f
  486. #t
  487. (#<procedure POSITIVE_P> 4)  ==> #t
  488. #t
  489. (#<procedure POSITIVE_P> -4)  ==> #f
  490. #t
  491. (#<procedure POSITIVE_P> 0)  ==> #f
  492. #t
  493. (#<procedure NEGATIVE_P> 4)  ==> #f
  494. #t
  495. (#<procedure NEGATIVE_P> -4)  ==> #t
  496. #t
  497. (#<procedure NEGATIVE_P> 0)  ==> #f
  498. #t
  499. (#<procedure ODD_P> 3)  ==> #t
  500. #t
  501. (#<procedure ODD_P> 2)  ==> #f
  502. #t
  503. (#<procedure ODD_P> -4)  ==> #f
  504. #t
  505. (#<procedure ODD_P> -1)  ==> #t
  506. #t
  507. (#<procedure EVEN_P> 3)  ==> #f
  508. #t
  509. (#<procedure EVEN_P> 2)  ==> #t
  510. #t
  511. (#<procedure EVEN_P> -4)  ==> #t
  512. #t
  513. (#<procedure EVEN_P> -1)  ==> #f
  514. #t
  515. (#<procedure MAX> 34 5 7 38 6)  ==> 38
  516. #t
  517. (#<procedure MIN> 3 5 5 330 4 -24)  ==> -24
  518. #t
  519. (#<procedure ADD> 3 4)  ==> 7
  520. #t
  521. (#<procedure ADD> 3)  ==> 3
  522. #t
  523. (#<procedure ADD>)  ==> 0
  524. #t
  525. (#<procedure MULTIPLY> 4)  ==> 4
  526. #t
  527. (#<procedure MULTIPLY>)  ==> 1
  528. #t
  529. (#<procedure SUBTRACT> 3 4)  ==> -1
  530. #t
  531. (#<procedure SUBTRACT> 3)  ==> -3
  532. #t
  533. (#<procedure ABS> -7)  ==> 7
  534. #t
  535. (#<procedure ABS> 7)  ==> 7
  536. #t
  537. (#<procedure ABS> 0)  ==> 0
  538. #t
  539. (#<procedure QUOTIENT> 35 7)  ==> 5
  540. #t
  541. (#<procedure QUOTIENT> -35 7)  ==> -5
  542. #t
  543. (#<procedure QUOTIENT> 35 -7)  ==> -5
  544. #t
  545. (#<procedure QUOTIENT> -35 -7)  ==> 5
  546. #t
  547. (#<procedure MODULO> 13 4)  ==> 1
  548. #t
  549. (#<procedure REMAINDER> 13 4)  ==> 1
  550. #t
  551. (#<procedure MODULO> -13 4)  ==> 3
  552. #t
  553. (#<procedure REMAINDER> -13 4)  ==> -1
  554. #t
  555. (#<procedure MODULO> 13 -4)  ==> -3
  556. #t
  557. (#<procedure REMAINDER> 13 -4)  ==> 1
  558. #t
  559. (#<procedure MODULO> -13 -4)  ==> -1
  560. #t
  561. (#<procedure REMAINDER> -13 -4)  ==> -1
  562. #t
  563. DIVTEST
  564. (#<interpreted function DIVTEST> 238 9)  ==> #t
  565. #t
  566. (#<interpreted function DIVTEST> -238 9)  ==> #t
  567. #t
  568. (#<interpreted function DIVTEST> 238 -9)  ==> #t
  569. #t
  570. (#<interpreted function DIVTEST> -238 -9)  ==> #t
  571. #t
  572. (#<procedure GCD> 0 4)  ==> 4
  573. #t
  574. (#<procedure GCD> -4 0)  ==> 4
  575. #t
  576. (#<procedure GCD> 32 -36)  ==> 4
  577. #t
  578. (#<procedure GCD>)  ==> 0
  579. #t
  580. (#<procedure LCM> 32 -36)  ==> 288
  581. #t
  582. (#<procedure LCM>)  ==> 1
  583. #t
  584. TEST-INEXACT
  585. TEST-BIGNUM
  586. SECTION(6 5 6)
  587. #t
  588. (#<procedure NUMBER_2_STRING> 0)  ==> "0"
  589. #t
  590. (#<procedure NUMBER_2_STRING> 100)  ==> "100"
  591. #t
  592. (#<procedure NUMBER_2_STRING> 256 16)  ==> "100"
  593. #t
  594. (#<procedure STRING_2_NUMBER> "100")  ==> 100
  595. #t
  596. (#<procedure STRING_2_NUMBER> "100" 16)  ==> 256
  597. #t
  598. (#<procedure STRING_2_NUMBER> "")  ==> #f
  599. #t
  600. (#<procedure STRING_2_NUMBER> ".")  ==> #f
  601. #t
  602. (#<procedure STRING_2_NUMBER> "d")  ==> #f
  603. #t
  604. (#<procedure STRING_2_NUMBER> "D")  ==> #f
  605. #t
  606. (#<procedure STRING_2_NUMBER> "i")  ==> #f
  607. #t
  608. (#<procedure STRING_2_NUMBER> "I")  ==> #f
  609. #t
  610. (#<procedure STRING_2_NUMBER> "3i")  ==> #f
  611. #t
  612. (#<procedure STRING_2_NUMBER> "3I")  ==> #f
  613. #t
  614. (#<procedure STRING_2_NUMBER> "33i")  ==> #f
  615. #t
  616. (#<procedure STRING_2_NUMBER> "33I")  ==> #f
  617. #t
  618. (#<procedure STRING_2_NUMBER> "3.3i")  ==> #f
  619. #t
  620. (#<procedure STRING_2_NUMBER> "3.3I")  ==> #f
  621. #t
  622. (#<procedure STRING_2_NUMBER> "-")  ==> #f
  623. #t
  624. (#<procedure STRING_2_NUMBER> "+")  ==> #f
  625. #t
  626. SECTION(6 6)
  627. #t
  628. (#<procedure EQV_P> #\space #\space)  ==> #t
  629. #t
  630. (#<procedure EQV_P> #\space #\space)  ==> #t
  631. #t
  632. (#<procedure CHAR_P> #\a)  ==> #t
  633. #t
  634. (#<procedure CHAR_P> #\()  ==> #t
  635. #t
  636. (#<procedure CHAR_P> #\space)  ==> #t
  637. #t
  638. (#<procedure CHAR_P> #\newline)  ==> #t
  639. #t
  640. (#<procedure CHAR_EQ> #\A #\B)  ==> #f
  641. #t
  642. (#<procedure CHAR_EQ> #\a #\b)  ==> #f
  643. #t
  644. (#<procedure CHAR_EQ> #\9 #\0)  ==> #f
  645. #t
  646. (#<procedure CHAR_EQ> #\A #\A)  ==> #t
  647. #t
  648. (#<procedure CHAR_LT> #\A #\B)  ==> #t
  649. #t
  650. (#<procedure CHAR_LT> #\a #\b)  ==> #t
  651. #t
  652. (#<procedure CHAR_LT> #\9 #\0)  ==> #f
  653. #t
  654. (#<procedure CHAR_LT> #\A #\A)  ==> #f
  655. #t
  656. (#<procedure CHAR_GT> #\A #\B)  ==> #f
  657. #t
  658. (#<procedure CHAR_GT> #\a #\b)  ==> #f
  659. #t
  660. (#<procedure CHAR_GT> #\9 #\0)  ==> #t
  661. #t
  662. (#<procedure CHAR_GT> #\A #\A)  ==> #f
  663. #t
  664. (#<procedure CHAR_LE> #\A #\B)  ==> #t
  665. #t
  666. (#<procedure CHAR_LE> #\a #\b)  ==> #t
  667. #t
  668. (#<procedure CHAR_LE> #\9 #\0)  ==> #f
  669. #t
  670. (#<procedure CHAR_LE> #\A #\A)  ==> #t
  671. #t
  672. (#<procedure CHAR_GE> #\A #\B)  ==> #f
  673. #t
  674. (#<procedure CHAR_GE> #\a #\b)  ==> #f
  675. #t
  676. (#<procedure CHAR_GE> #\9 #\0)  ==> #t
  677. #t
  678. (#<procedure CHAR_GE> #\A #\A)  ==> #t
  679. #t
  680. (#<procedure CHAR_CI_EQ> #\A #\B)  ==> #f
  681. #t
  682. (#<procedure CHAR_CI_EQ> #\a #\B)  ==> #f
  683. #t
  684. (#<procedure CHAR_CI_EQ> #\A #\b)  ==> #f
  685. #t
  686. (#<procedure CHAR_CI_EQ> #\a #\b)  ==> #f
  687. #t
  688. (#<procedure CHAR_CI_EQ> #\9 #\0)  ==> #f
  689. #t
  690. (#<procedure CHAR_CI_EQ> #\A #\A)  ==> #t
  691. #t
  692. (#<procedure CHAR_CI_EQ> #\A #\a)  ==> #t
  693. #t
  694. (#<procedure CHAR_CI_LT> #\A #\B)  ==> #t
  695. #t
  696. (#<procedure CHAR_CI_LT> #\a #\B)  ==> #t
  697. #t
  698. (#<procedure CHAR_CI_LT> #\A #\b)  ==> #t
  699. #t
  700. (#<procedure CHAR_CI_LT> #\a #\b)  ==> #t
  701. #t
  702. (#<procedure CHAR_CI_LT> #\9 #\0)  ==> #f
  703. #t
  704. (#<procedure CHAR_CI_LT> #\A #\A)  ==> #f
  705. #t
  706. (#<procedure CHAR_CI_LT> #\A #\a)  ==> #f
  707. #t
  708. (#<procedure CHAR_CI_GT> #\A #\B)  ==> #f
  709. #t
  710. (#<procedure CHAR_CI_GT> #\a #\B)  ==> #f
  711. #t
  712. (#<procedure CHAR_CI_GT> #\A #\b)  ==> #f
  713. #t
  714. (#<procedure CHAR_CI_GT> #\a #\b)  ==> #f
  715. #t
  716. (#<procedure CHAR_CI_GT> #\9 #\0)  ==> #t
  717. #t
  718. (#<procedure CHAR_CI_GT> #\A #\A)  ==> #f
  719. #t
  720. (#<procedure CHAR_CI_GT> #\A #\a)  ==> #f
  721. #t
  722. (#<procedure CHAR_CI_LE> #\A #\B)  ==> #t
  723. #t
  724. (#<procedure CHAR_CI_LE> #\a #\B)  ==> #t
  725. #t
  726. (#<procedure CHAR_CI_LE> #\A #\b)  ==> #t
  727. #t
  728. (#<procedure CHAR_CI_LE> #\a #\b)  ==> #t
  729. #t
  730. (#<procedure CHAR_CI_LE> #\9 #\0)  ==> #f
  731. #t
  732. (#<procedure CHAR_CI_LE> #\A #\A)  ==> #t
  733. #t
  734. (#<procedure CHAR_CI_LE> #\A #\a)  ==> #t
  735. #t
  736. (#<procedure CHAR_CI_GE> #\A #\B)  ==> #f
  737. #t
  738. (#<procedure CHAR_CI_GE> #\a #\B)  ==> #f
  739. #t
  740. (#<procedure CHAR_CI_GE> #\A #\b)  ==> #f
  741. #t
  742. (#<procedure CHAR_CI_GE> #\a #\b)  ==> #f
  743. #t
  744. (#<procedure CHAR_CI_GE> #\9 #\0)  ==> #t
  745. #t
  746. (#<procedure CHAR_CI_GE> #\A #\A)  ==> #t
  747. #t
  748. (#<procedure CHAR_CI_GE> #\A #\a)  ==> #t
  749. #t
  750. (#<procedure CHAR_ALPHABETIC_P> #\a)  ==> #t
  751. #t
  752. (#<procedure CHAR_ALPHABETIC_P> #\A)  ==> #t
  753. #t
  754. (#<procedure CHAR_ALPHABETIC_P> #\z)  ==> #t
  755. #t
  756. (#<procedure CHAR_ALPHABETIC_P> #\Z)  ==> #t
  757. #t
  758. (#<procedure CHAR_ALPHABETIC_P> #\0)  ==> #f
  759. #t
  760. (#<procedure CHAR_ALPHABETIC_P> #\9)  ==> #f
  761. #t
  762. (#<procedure CHAR_ALPHABETIC_P> #\space)  ==> #f
  763. #t
  764. (#<procedure CHAR_ALPHABETIC_P> #\;)  ==> #f
  765. #t
  766. (#<procedure CHAR_NUMERIC_P> #\a)  ==> #f
  767. #t
  768. (#<procedure CHAR_NUMERIC_P> #\A)  ==> #f
  769. #t
  770. (#<procedure CHAR_NUMERIC_P> #\z)  ==> #f
  771. #t
  772. (#<procedure CHAR_NUMERIC_P> #\Z)  ==> #f
  773. #t
  774. (#<procedure CHAR_NUMERIC_P> #\0)  ==> #t
  775. #t
  776. (#<procedure CHAR_NUMERIC_P> #\9)  ==> #t
  777. #t
  778. (#<procedure CHAR_NUMERIC_P> #\space)  ==> #f
  779. #t
  780. (#<procedure CHAR_NUMERIC_P> #\;)  ==> #f
  781. #t
  782. (#<procedure CHAR_WHITESPACE_P> #\a)  ==> #f
  783. #t
  784. (#<procedure CHAR_WHITESPACE_P> #\A)  ==> #f
  785. #t
  786. (#<procedure CHAR_WHITESPACE_P> #\z)  ==> #f
  787. #t
  788. (#<procedure CHAR_WHITESPACE_P> #\Z)  ==> #f
  789. #t
  790. (#<procedure CHAR_WHITESPACE_P> #\0)  ==> #f
  791. #t
  792. (#<procedure CHAR_WHITESPACE_P> #\9)  ==> #f
  793. #t
  794. (#<procedure CHAR_WHITESPACE_P> #\space)  ==> #t
  795. #t
  796. (#<procedure CHAR_WHITESPACE_P> #\;)  ==> #f
  797. #t
  798. (#<procedure CHAR_UPPER_CASE_P> #\0)  ==> #f
  799. #t
  800. (#<procedure CHAR_UPPER_CASE_P> #\9)  ==> #f
  801. #t
  802. (#<procedure CHAR_UPPER_CASE_P> #\space)  ==> #f
  803. #t
  804. (#<procedure CHAR_UPPER_CASE_P> #\;)  ==> #f
  805. #t
  806. (#<procedure CHAR_LOWER_CASE_P> #\0)  ==> #f
  807. #t
  808. (#<procedure CHAR_LOWER_CASE_P> #\9)  ==> #f
  809. #t
  810. (#<procedure CHAR_LOWER_CASE_P> #\space)  ==> #f
  811. #t
  812. (#<procedure CHAR_LOWER_CASE_P> #\;)  ==> #f
  813. #t
  814. (#<procedure INTEGER_2_CHAR> 46)  ==> #\.
  815. #t
  816. (#<procedure INTEGER_2_CHAR> 65)  ==> #\A
  817. #t
  818. (#<procedure INTEGER_2_CHAR> 97)  ==> #\a
  819. #t
  820. (#<procedure CHAR_UPCASE> #\A)  ==> #\A
  821. #t
  822. (#<procedure CHAR_UPCASE> #\a)  ==> #\A
  823. #t
  824. (#<procedure CHAR_DOWNCASE> #\A)  ==> #\a
  825. #t
  826. (#<procedure CHAR_DOWNCASE> #\a)  ==> #\a
  827. #t
  828. SECTION(6 7)
  829. #t
  830. (#<procedure STRING_P> "The word \"recursion\\\" has many meanings.")  ==> #t
  831. #t
  832. (#<procedure STRING_P> "")  ==> #t
  833. #t
  834. F
  835. (STRING-SET! "?**")  ==> "?**"
  836. #t
  837. (#<procedure STRING> #\a #\b #\c)  ==> "abc"
  838. #t
  839. (#<procedure STRING>)  ==> ""
  840. #t
  841. (#<procedure STRING_LENGTH> "abc")  ==> 3
  842. #t
  843. (#<procedure STRING_REF> "abc" 0)  ==> #\a
  844. #t
  845. (#<procedure STRING_REF> "abc" 2)  ==> #\c
  846. #t
  847. (#<procedure STRING_LENGTH> "")  ==> 0
  848. #t
  849. (#<procedure SUBSTRING> "ab" 0 0)  ==> ""
  850. #t
  851. (#<procedure SUBSTRING> "ab" 1 1)  ==> ""
  852. #t
  853. (#<procedure SUBSTRING> "ab" 2 2)  ==> ""
  854. #t
  855. (#<procedure SUBSTRING> "ab" 0 1)  ==> "a"
  856. #t
  857. (#<procedure SUBSTRING> "ab" 1 2)  ==> "b"
  858. #t
  859. (#<procedure SUBSTRING> "ab" 0 2)  ==> "ab"
  860. #t
  861. (#<procedure STRING_APPEND> "foo" "bar")  ==> "foobar"
  862. #t
  863. (#<procedure STRING_APPEND> "foo")  ==> "foo"
  864. #t
  865. (#<procedure STRING_APPEND> "foo" "")  ==> "foo"
  866. #t
  867. (#<procedure STRING_APPEND> "" "foo")  ==> "foo"
  868. #t
  869. (#<procedure STRING_APPEND>)  ==> ""
  870. #t
  871. (#<procedure MAKE_STRING> 0)  ==> ""
  872. #t
  873. (#<procedure STRING_EQ> "" "")  ==> #t
  874. #t
  875. (#<procedure STRING_LT> "" "")  ==> #f
  876. #t
  877. (#<procedure STRING_GT> "" "")  ==> #f
  878. #t
  879. (#<procedure STRING_LE> "" "")  ==> #t
  880. #t
  881. (#<procedure STRING_GE> "" "")  ==> #t
  882. #t
  883. (#<procedure STRING_CI_EQ> "" "")  ==> #t
  884. #t
  885. (#<procedure STRING_CI_LT> "" "")  ==> #f
  886. #t
  887. (#<procedure STRING_CI_GT> "" "")  ==> #f
  888. #t
  889. (#<procedure STRING_CI_LE> "" "")  ==> #t
  890. #t
  891. (#<procedure STRING_CI_GE> "" "")  ==> #t
  892. #t
  893. (#<procedure STRING_EQ> "A" "B")  ==> #f
  894. #t
  895. (#<procedure STRING_EQ> "a" "b")  ==> #f
  896. #t
  897. (#<procedure STRING_EQ> "9" "0")  ==> #f
  898. #t
  899. (#<procedure STRING_EQ> "A" "A")  ==> #t
  900. #t
  901. (#<procedure STRING_LT> "A" "B")  ==> #t
  902. #t
  903. (#<procedure STRING_LT> "a" "b")  ==> #t
  904. #t
  905. (#<procedure STRING_LT> "9" "0")  ==> #f
  906. #t
  907. (#<procedure STRING_LT> "A" "A")  ==> #f
  908. #t
  909. (#<procedure STRING_GT> "A" "B")  ==> #f
  910. #t
  911. (#<procedure STRING_GT> "a" "b")  ==> #f
  912. #t
  913. (#<procedure STRING_GT> "9" "0")  ==> #t
  914. #t
  915. (#<procedure STRING_GT> "A" "A")  ==> #f
  916. #t
  917. (#<procedure STRING_LE> "A" "B")  ==> #t
  918. #t
  919. (#<procedure STRING_LE> "a" "b")  ==> #t
  920. #t
  921. (#<procedure STRING_LE> "9" "0")  ==> #f
  922. #t
  923. (#<procedure STRING_LE> "A" "A")  ==> #t
  924. #t
  925. (#<procedure STRING_GE> "A" "B")  ==> #f
  926. #t
  927. (#<procedure STRING_GE> "a" "b")  ==> #f
  928. #t
  929. (#<procedure STRING_GE> "9" "0")  ==> #t
  930. #t
  931. (#<procedure STRING_GE> "A" "A")  ==> #t
  932. #t
  933. (#<procedure STRING_CI_EQ> "A" "B")  ==> #f
  934. #t
  935. (#<procedure STRING_CI_EQ> "a" "B")  ==> #f
  936. #t
  937. (#<procedure STRING_CI_EQ> "A" "b")  ==> #f
  938. #t
  939. (#<procedure STRING_CI_EQ> "a" "b")  ==> #f
  940. #t
  941. (#<procedure STRING_CI_EQ> "9" "0")  ==> #f
  942. #t
  943. (#<procedure STRING_CI_EQ> "A" "A")  ==> #t
  944. #t
  945. (#<procedure STRING_CI_EQ> "A" "a")  ==> #t
  946. #t
  947. (#<procedure STRING_CI_LT> "A" "B")  ==> #t
  948. #t
  949. (#<procedure STRING_CI_LT> "a" "B")  ==> #t
  950. #t
  951. (#<procedure STRING_CI_LT> "A" "b")  ==> #t
  952. #t
  953. (#<procedure STRING_CI_LT> "a" "b")  ==> #t
  954. #t
  955. (#<procedure STRING_CI_LT> "9" "0")  ==> #f
  956. #t
  957. (#<procedure STRING_CI_LT> "A" "A")  ==> #f
  958. #t
  959. (#<procedure STRING_CI_LT> "A" "a")  ==> #f
  960. #t
  961. (#<procedure STRING_CI_GT> "A" "B")  ==> #f
  962. #t
  963. (#<procedure STRING_CI_GT> "a" "B")  ==> #f
  964. #t
  965. (#<procedure STRING_CI_GT> "A" "b")  ==> #f
  966. #t
  967. (#<procedure STRING_CI_GT> "a" "b")  ==> #f
  968. #t
  969. (#<procedure STRING_CI_GT> "9" "0")  ==> #t
  970. #t
  971. (#<procedure STRING_CI_GT> "A" "A")  ==> #f
  972. #t
  973. (#<procedure STRING_CI_GT> "A" "a")  ==> #f
  974. #t
  975. (#<procedure STRING_CI_LE> "A" "B")  ==> #t
  976. #t
  977. (#<procedure STRING_CI_LE> "a" "B")  ==> #t
  978. #t
  979. (#<procedure STRING_CI_LE> "A" "b")  ==> #t
  980. #t
  981. (#<procedure STRING_CI_LE> "a" "b")  ==> #t
  982. #t
  983. (#<procedure STRING_CI_LE> "9" "0")  ==> #f
  984. #t
  985. (#<procedure STRING_CI_LE> "A" "A")  ==> #t
  986. #t
  987. (#<procedure STRING_CI_LE> "A" "a")  ==> #t
  988. #t
  989. (#<procedure STRING_CI_GE> "A" "B")  ==> #f
  990. #t
  991. (#<procedure STRING_CI_GE> "a" "B")  ==> #f
  992. #t
  993. (#<procedure STRING_CI_GE> "A" "b")  ==> #f
  994. #t
  995. (#<procedure STRING_CI_GE> "a" "b")  ==> #f
  996. #t
  997. (#<procedure STRING_CI_GE> "9" "0")  ==> #t
  998. #t
  999. (#<procedure STRING_CI_GE> "A" "A")  ==> #t
  1000. #t
  1001. (#<procedure STRING_CI_GE> "A" "a")  ==> #t
  1002. #t
  1003. SECTION(6 8)
  1004. #t
  1005. (#<procedure VECTOR_P> #(0 (2 2 2 2) "Anna"))  ==> #t
  1006. #t
  1007. (#<procedure VECTOR_P> #())  ==> #t
  1008. #t
  1009. (#<procedure VECTOR> A B C)  ==> #(A B C)
  1010. #t
  1011. (#<procedure VECTOR>)  ==> #()
  1012. #t
  1013. (#<procedure VECTOR_LENGTH> #(0 (2 2 2 2) "Anna"))  ==> 3
  1014. #t
  1015. (#<procedure VECTOR_LENGTH> #())  ==> 0
  1016. #t
  1017. (#<procedure VECTOR_REF> #(1 1 2 3 5 8 13 21) 5)  ==> 8
  1018. #t
  1019. (VECTOR-SET #(0 ("Sue" "Sue") "Anna"))  ==> #(0 ("Sue" "Sue") "Anna")
  1020. #t
  1021. (#<procedure MAKE_VECTOR> 2 HI)  ==> #(HI HI)
  1022. #t
  1023. (#<procedure MAKE_VECTOR> 0)  ==> #()
  1024. #t
  1025. (#<procedure MAKE_VECTOR> 0 A)  ==> #()
  1026. #t
  1027. SECTION(6 9)
  1028. #t
  1029. (#<procedure PROCEDURE_P> #<procedure CAR>)  ==> #t
  1030. #t
  1031. (#<procedure PROCEDURE_P> CAR)  ==> #f
  1032. #t
  1033. (#<procedure PROCEDURE_P> #<interpreted function ???>)  ==> #t
  1034. #t
  1035. (#<procedure PROCEDURE_P> (LAMBDA (X) (* X X)))  ==> #f
  1036. #t
  1037. (#<procedure CALL_WITH_CURRENT_CONTINUATION> #<procedure PROCEDURE_P>)  ==> #t
  1038. #t
  1039. (#<procedure APPLY> #<procedure ADD> (3 4))  ==> 7
  1040. #t
  1041. (#<procedure APPLY> #<interpreted function ???> (3 4))  ==> 7
  1042. #t
  1043. (#<procedure APPLY> #<procedure ADD> 10 (3 4))  ==> 17
  1044. #t
  1045. (#<procedure APPLY> #<procedure LIST> ())  ==> ()
  1046. #t
  1047. COMPOSE
  1048. (#<interpreted function ???> 12 75)  ==> 30
  1049. #t
  1050. (#<procedure MAP> #<procedure CXXR> ((A B) (D E) (G H)))  ==> (B E H)
  1051. #t
  1052. (#<procedure MAP> #<procedure ADD> (1 2 3) (4 5 6))  ==> (5 7 9)
  1053. #t
  1054. (FOR-EACH #(0 1 4 9 16))  ==> #(0 1 4 9 16)
  1055. #t
  1056. (#<procedure CALL_WITH_CURRENT_CONTINUATION> #<interpreted function ???>)  ==> -3
  1057. #t
  1058. LIST-LENGTH
  1059. (#<interpreted function LIST-LENGTH> (1 2 3 4))  ==> 4
  1060. #t
  1061. (#<interpreted function LIST-LENGTH> (A B . C))  ==> #f
  1062. #t
  1063. (#<procedure MAP> #<procedure CXXR> ())  ==> ()
  1064. #t
  1065. NEXT-LEAF-GENERATOR
  1066. LEAF-EQ?
  1067. TEST-CONT
  1068. TEST-DELAY
  1069. SECTION(6 10 1)
  1070. #t
  1071. (#<procedure INPUT_PORT_P> #<input &input>)  ==> #t
  1072. #t
  1073. (#<procedure OUTPUT_PORT_P> #<output &output>)  ==> #t
  1074. #t
  1075. (#<procedure CALL_WITH_INPUT_FILE> "test.scm" #<procedure INPUT_PORT_P>)  ==> #t
  1076. #t
  1077. THIS-FILE
  1078. (#<procedure INPUT_PORT_P> #<input file(test.scm)>)  ==> #t
  1079. #t
  1080. SECTION(6 10 2)
  1081. #t
  1082. (#<procedure PEEK_CHAR> #<input file(test.scm)>)  ==> #\;
  1083. #t
  1084. (#<procedure READ_CHAR> #<input file(test.scm)>)  ==> #\;
  1085. #t
  1086. (#<procedure READ> #<input file(test.scm)>)  ==> (DEFINE CUR-SECTION (QUOTE ()))
  1087. #t
  1088. (#<procedure PEEK_CHAR> #<input file(test.scm)>)  ==> #\(
  1089. #t
  1090. (#<procedure READ> #<input file(test.scm)>)  ==> (DEFINE ERRS (QUOTE ()))
  1091. #t
  1092. #<input file(test.scm)>
  1093. #<input file(test.scm)>
  1094. CHECK-TEST-FILE
  1095. SECTION(6 10 3)
  1096. #t
  1097. WRITE-TEST-OBJ
  1098. DISPLAY-TEST-OBJ
  1099. LOAD-TEST-OBJ
  1100. (#<procedure CALL_WITH_OUTPUT_FILE> "tmp1" #<interpreted function ???>)  ==> #t
  1101. #t
  1102. (#<procedure READ> #<input file(tmp1)>)  ==> (DEFINE FOO (QUOTE (#t #f #\a () 9739 -3 . #((TEST) "te \" \" st" "" TEST #() B C))))
  1103. (#<procedure EOF_OBJECT_P> #<eof>)  ==> #t
  1104. (#<procedure EOF_OBJECT_P> #<eof>)  ==> #t
  1105. (INPUT-PORT? #t)  ==> #t
  1106. (#<procedure READ_CHAR> #<input file(tmp1)>)  ==> #\;
  1107. (#<procedure READ> #<input file(tmp1)>)  ==> (#t #f A () 9739 -3 . #((TEST) TE " " ST TEST #() B C))
  1108. (#<procedure READ> #<input file(tmp1)>)  ==> (DEFINE FOO (QUOTE (#t #f #\a () 9739 -3 . #((TEST) "te \" \" st" "" TEST #() B C))))
  1109. #<input file(tmp1)>
  1110. TEST-FILE
  1111. #<output file(tmp2)>
  1112. #<output file(tmp2)>
  1113. #<output file(tmp2)>
  1114. #<output file(tmp2)>
  1115. (#<procedure OUTPUT_PORT_P> #<output file(tmp2)>)  ==> #t
  1116. #t
  1117. #<output file(tmp2)>
  1118. (#<procedure READ> #<input file(tmp2)>)  ==> (DEFINE FOO (QUOTE (#t #f #\a () 9739 -3 . #((TEST) "te \" \" st" "" TEST #() B C))))
  1119. (#<procedure EOF_OBJECT_P> #<eof>)  ==> #t
  1120. (#<procedure EOF_OBJECT_P> #<eof>)  ==> #t
  1121. (INPUT-PORT? #t)  ==> #t
  1122. (#<procedure READ_CHAR> #<input file(tmp2)>)  ==> #\;
  1123. (#<procedure READ> #<input file(tmp2)>)  ==> (#t #f A () 9739 -3 . #((TEST) TE " " ST TEST #() B C))
  1124. (#<procedure READ> #<input file(tmp2)>)  ==> (DEFINE FOO (QUOTE (#t #f #\a () 9739 -3 . #((TEST) "te \" \" st" "" TEST #() B C))))
  1125. #<input file(tmp2)>
  1126. TEST-SC4
  1127.  
  1128. Passed all tests
  1129. #<output &output>
  1130.  
  1131. ;testing inexact numbers; 
  1132. SECTION(6 5 5)
  1133. (#<procedure INEXACT_P> 3.9)  ==> #t
  1134. (INEXACT? #t)  ==> #t
  1135. (MAX 4.0)  ==> 4.0
  1136. (EXACT->INEXACT 4.0)  ==> 4.0
  1137. (#<procedure ROUND> -4.5)  ==> -4.0
  1138. (#<procedure ROUND> -3.5)  ==> -4.0
  1139. (#<procedure ROUND> -3.9)  ==> -4.0
  1140. (#<procedure ROUND> 0.0)  ==> 0.0
  1141. (#<procedure ROUND> 0.25)  ==> 0.0
  1142. (#<procedure ROUND> 0.8)  ==> 1.0
  1143. (#<procedure ROUND> 3.5)  ==> 4.0
  1144. (#<procedure ROUND> 4.5)  ==> 4.0
  1145. (#<procedure CALL_WITH_OUTPUT_FILE> "tmp3" #<interpreted function ???>)  ==> #t
  1146. (#<procedure READ> #<input file(tmp3)>)  ==> (DEFINE FOO (QUOTE (0.25 -3.25)))
  1147. (#<procedure EOF_OBJECT_P> #<eof>)  ==> #t
  1148. (#<procedure EOF_OBJECT_P> #<eof>)  ==> #t
  1149. (INPUT-PORT? #t)  ==> #t
  1150. (#<procedure READ_CHAR> #<input file(tmp3)>)  ==> #\;
  1151. (#<procedure READ> #<input file(tmp3)>)  ==> (0.25 -3.25)
  1152. (#<procedure READ> #<input file(tmp3)>)  ==> (DEFINE FOO (QUOTE (0.25 -3.25)))
  1153. (PENTIUM-FDIV-BUG #t)  ==> #t
  1154.  
  1155. Passed all tests
  1156. #<output &output>
  1157.  
  1158. ;testing bignums; 
  1159. SECTION(6 5 5)
  1160. (#<procedure MODULO> -2177452800 86400)  ==> 0
  1161. (#<procedure MODULO> 2177452800 -86400)  ==> 0
  1162. (#<procedure MODULO> 2177452800 86400)  ==> 0
  1163. (#<procedure MODULO> -2177452800 -86400)  ==> 0
  1164. (REMAINDER #t)  ==> #t
  1165. (REMAINDER #t)  ==> #t
  1166. SECTION(6 5 6)
  1167. (#<procedure STRING_2_NUMBER> "281474976710655")  ==> 281474976710655
  1168. (#<procedure NUMBER_2_STRING> 281474976710655)  ==> "281474976710655"
  1169.  
  1170. Passed all tests
  1171. #<output &output>
  1172.  
  1173. #<output &output>
  1174. To fully test continuations, Scheme 4, and DELAY/FORCE do:#<output &output>
  1175.  
  1176. #<output &output>
  1177. (test-cont) (test-sc4) (test-delay)#<output &output>
  1178.  
  1179. #<output &output>
  1180. "last item in file"
  1181.