home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / characters.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  7.7 KB  |  847 lines
  1.  
  2. CHAR-CODE-LIMIT
  3. #+XCL 128 #+(or CLISP AKCL) 256 #-(or XCL CLISP AKCL) UNKNOWN
  4.  
  5. CHAR-FONT-LIMIT
  6. #+(or XCL AKCL) 1 #+CLISP 16 #-(or XCL CLISP AKCL) UNKNOWN
  7.  
  8. CHAR-BITS-LIMIT
  9. #+(or XCL AKCL) 1 #+CLISP 16 #-(or XCL CLISP AKCL) UNKNOWN
  10.  
  11. (STANDARD-CHAR-P #\a)
  12. T
  13.  
  14. (STANDARD-CHAR-P #\$)
  15. T
  16.  
  17. (STANDARD-CHAR-P #\.)
  18. T
  19.  
  20. (STANDARD-CHAR-P #\A)
  21. T
  22.  
  23. (STANDARD-CHAR-P 1)
  24. ERROR
  25.  
  26. (STANDARD-CHAR-P #\\)
  27. T
  28.  
  29. (STANDARD-CHAR-P #\5)
  30. T
  31.  
  32. (STANDARD-CHAR-P #\))
  33. T
  34.  
  35. (STANDARD-CHAR-P #\%)
  36. T
  37.  
  38. (STANDARD-CHAR-P #\BACKSPACE)
  39. #+XCL T #-XCL NIL
  40.  
  41. (STANDARD-CHAR-P #\PAGE)
  42. #+XCL T #-XCL NIL
  43.  
  44. (STANDARD-CHAR-P #\RETURN)
  45. #+XCL T #-XCL NIL
  46.  
  47. (STANDARD-CHAR-P #\C-A)
  48. NIL
  49.  
  50. (STANDARD-CHAR-P #\H-SPACE)
  51. NIL
  52.  
  53. (STANDARD-CHAR-P #\M-\a)
  54. NIL
  55.  
  56. (STANDARD-CHAR-P #6\a)
  57. NIL
  58.  
  59. (STANDARD-CHAR-P #6\M-C-RETURN)
  60. NIL
  61.  
  62. (GRAPHIC-CHAR-P #\a)
  63. T
  64.  
  65. (GRAPHIC-CHAR-P #\$)
  66. T
  67.  
  68. (GRAPHIC-CHAR-P #\.)
  69. T
  70.  
  71. (GRAPHIC-CHAR-P #\A)
  72. T
  73.  
  74. (GRAPHIC-CHAR-P 1)
  75. ERROR
  76.  
  77. (GRAPHIC-CHAR-P #\\)
  78. T
  79.  
  80. (GRAPHIC-CHAR-P #\5)
  81. T
  82.  
  83. (GRAPHIC-CHAR-P #\))
  84. T
  85.  
  86. (GRAPHIC-CHAR-P #\%)
  87. T
  88.  
  89. (GRAPHIC-CHAR-P #\BACKSPACE)
  90. NIL
  91.  
  92. (GRAPHIC-CHAR-P #\PAGE)
  93. NIL
  94.  
  95. (GRAPHIC-CHAR-P #\RETURN)
  96. NIL
  97.  
  98. (GRAPHIC-CHAR-P #\C-A)
  99. NIL
  100.  
  101. (GRAPHIC-CHAR-P #\H-SPACE)
  102. NIL
  103.  
  104. (GRAPHIC-CHAR-P #\M-\a)
  105. NIL
  106.  
  107. (GRAPHIC-CHAR-P #6\a)
  108. NIL
  109.  
  110. (GRAPHIC-CHAR-P #6\M-C-RETURN)
  111. NIL
  112.  
  113. (STRING-CHAR-P #\a)
  114. T
  115.  
  116. (STRING-CHAR-P #\$)
  117. T
  118.  
  119. (STRING-CHAR-P #\.)
  120. T
  121.  
  122. (STRING-CHAR-P #\A)
  123. T
  124.  
  125. (STRING-CHAR-P 1)
  126. ERROR
  127.  
  128. (STRING-CHAR-P #\\)
  129. T
  130.  
  131. (STRING-CHAR-P #\5)
  132. T
  133.  
  134. (STRING-CHAR-P #\))
  135. T
  136.  
  137. (STRING-CHAR-P #\%)
  138. T
  139.  
  140. (STRING-CHAR-P #\BACKSPACE)
  141. T
  142.  
  143. (STRING-CHAR-P #\PAGE)
  144. T
  145.  
  146. (STRING-CHAR-P #\RETURN)
  147. T
  148.  
  149. (STRING-CHAR-P #\C-A)
  150. NIL
  151.  
  152. (STRING-CHAR-P #\H-SPACE)
  153. NIL
  154.  
  155. (STRING-CHAR-P #\M-\a)
  156. NIL
  157.  
  158. (STRING-CHAR-P #6\a)
  159. NIL
  160.  
  161. (STRING-CHAR-P #6\M-C-RETURN)
  162. NIL
  163.  
  164. (ALPHA-CHAR-P #\a)
  165. T
  166.  
  167. (ALPHA-CHAR-P #\$)
  168. NIL
  169.  
  170. (ALPHA-CHAR-P #\.)
  171. NIL
  172.  
  173. (ALPHA-CHAR-P #\A)
  174. T
  175.  
  176. (ALPHA-CHAR-P 1)
  177. ERROR
  178.  
  179. (ALPHA-CHAR-P #\\)
  180. NIL
  181.  
  182. (ALPHA-CHAR-P #\5)
  183. NIL
  184.  
  185. (ALPHA-CHAR-P #\))
  186. NIL
  187.  
  188. (ALPHA-CHAR-P #\%)
  189. NIL
  190.  
  191. (ALPHA-CHAR-P #\BACKSPACE)
  192. NIL
  193.  
  194. (ALPHA-CHAR-P #\PAGE)
  195. NIL
  196.  
  197. (ALPHA-CHAR-P #\RETURN)
  198. NIL
  199.  
  200. (ALPHA-CHAR-P #\C-A)
  201. NIL
  202.  
  203. (ALPHA-CHAR-P #\H-SPACE)
  204. NIL
  205.  
  206. (ALPHA-CHAR-P #\M-\a)
  207. NIL
  208.  
  209. (ALPHA-CHAR-P #6\a)
  210. NIL
  211.  
  212. (ALPHA-CHAR-P #6\M-C-RETURN)
  213. NIL
  214.  
  215. (UPPER-CASE-P #\a)
  216. NIL
  217.  
  218. (UPPER-CASE-P #\$)
  219. NIL
  220.  
  221. (UPPER-CASE-P #\.)
  222. NIL
  223.  
  224. (UPPER-CASE-P #\A)
  225. T
  226.  
  227. (UPPER-CASE-P 1)
  228. ERROR
  229.  
  230. (UPPER-CASE-P #\\)
  231. NIL
  232.  
  233. (UPPER-CASE-P #\5)
  234. NIL
  235.  
  236. (UPPER-CASE-P #\))
  237. NIL
  238.  
  239. (UPPER-CASE-P #\%)
  240. NIL
  241.  
  242. (UPPER-CASE-P #\BACKSPACE)
  243. NIL
  244.  
  245. (UPPER-CASE-P #\PAGE)
  246. NIL
  247.  
  248. (UPPER-CASE-P #\RETURN)
  249. NIL
  250.  
  251. (UPPER-CASE-P #\C-A)
  252. NIL
  253.  
  254. (UPPER-CASE-P #\H-SPACE)
  255. NIL
  256.  
  257. (UPPER-CASE-P #\M-\a)
  258. NIL
  259.  
  260. (UPPER-CASE-P #6\a)
  261. NIL
  262.  
  263. (UPPER-CASE-P #6\M-C-RETURN)
  264. NIL
  265.  
  266. (LOWER-CASE-P #\a)
  267. T
  268.  
  269. (LOWER-CASE-P #\$)
  270. NIL
  271.  
  272. (LOWER-CASE-P #\.)
  273. NIL
  274.  
  275. (LOWER-CASE-P #\A)
  276. NIL
  277.  
  278. (LOWER-CASE-P 1)
  279. ERROR
  280.  
  281. (LOWER-CASE-P #\\)
  282. NIL
  283.  
  284. (LOWER-CASE-P #\5)
  285. NIL
  286.  
  287. (LOWER-CASE-P #\))
  288. NIL
  289.  
  290. (LOWER-CASE-P #\%)
  291. NIL
  292.  
  293. (LOWER-CASE-P #\BACKSPACE)
  294. NIL
  295.  
  296. (LOWER-CASE-P #\PAGE)
  297. NIL
  298.  
  299. (LOWER-CASE-P #\RETURN)
  300. NIL
  301.  
  302. (LOWER-CASE-P #\C-A)
  303. NIL
  304.  
  305. (LOWER-CASE-P #\H-SPACE)
  306. NIL
  307.  
  308. (LOWER-CASE-P #\M-\a)
  309. NIL
  310.  
  311. (LOWER-CASE-P #6\a)
  312. NIL
  313.  
  314. (LOWER-CASE-P #6\M-C-RETURN)
  315. NIL
  316.  
  317. (BOTH-CASE-P #\a)
  318. T
  319.  
  320. (BOTH-CASE-P #\$)
  321. NIL
  322.  
  323. (BOTH-CASE-P #\.)
  324. NIL
  325.  
  326. (BOTH-CASE-P #\A)
  327. T
  328.  
  329. (BOTH-CASE-P 1)
  330. ERROR
  331.  
  332. (BOTH-CASE-P #\\)
  333. NIL
  334.  
  335. (BOTH-CASE-P #\5)
  336. NIL
  337.  
  338. (BOTH-CASE-P #\))
  339. NIL
  340.  
  341. (BOTH-CASE-P #\%)
  342. NIL
  343.  
  344. (BOTH-CASE-P #\BACKSPACE)
  345. NIL
  346.  
  347. (BOTH-CASE-P #\PAGE)
  348. NIL
  349.  
  350. (BOTH-CASE-P #\RETURN)
  351. NIL
  352.  
  353. (BOTH-CASE-P #\C-A)
  354. NIL
  355.  
  356. (BOTH-CASE-P #\H-SPACE)
  357. NIL
  358.  
  359. (BOTH-CASE-P #\M-\a)
  360. NIL
  361.  
  362. (BOTH-CASE-P #6\a)
  363. NIL
  364.  
  365. (BOTH-CASE-P #6\M-C-RETURN)
  366. NIL
  367.  
  368. (DIGIT-CHAR-P #\a)
  369. NIL
  370.  
  371. (DIGIT-CHAR-P #\$)
  372. NIL
  373.  
  374. (DIGIT-CHAR-P #\.)
  375. NIL
  376.  
  377. (DIGIT-CHAR-P #\A)
  378. NIL
  379.  
  380. (DIGIT-CHAR-P 1)
  381. ERROR
  382.  
  383. (DIGIT-CHAR-P #\\)
  384. NIL
  385.  
  386. (DIGIT-CHAR-P #\5)
  387. 5
  388.  
  389. (DIGIT-CHAR-P #\))
  390. NIL
  391.  
  392. (DIGIT-CHAR-P #\%)
  393. NIL
  394.  
  395. (DIGIT-CHAR-P #\BACKSPACE)
  396. NIL
  397.  
  398. (DIGIT-CHAR-P #\PAGE)
  399. NIL
  400.  
  401. (DIGIT-CHAR-P #\RETURN)
  402. NIL
  403.  
  404. (DIGIT-CHAR-P #\C-A)
  405. NIL
  406.  
  407. (DIGIT-CHAR-P #\H-SPACE)
  408. NIL
  409.  
  410. (DIGIT-CHAR-P #\M-\a)
  411. NIL
  412.  
  413. (DIGIT-CHAR-P #6\a)
  414. NIL
  415.  
  416. (DIGIT-CHAR-P #6\M-C-RETURN)
  417. NIL
  418.  
  419. (DIGIT-CHAR-P #\5 4)
  420. NIL
  421.  
  422. (DIGIT-CHAR-P #\5 8)
  423. 5
  424.  
  425. (DIGIT-CHAR-P #\E 16)
  426. 14
  427.  
  428. (DIGIT-CHAR-P #\R 35)
  429. 27
  430.  
  431. (DIGIT-CHAR-P #\5 4)
  432. NIL
  433.  
  434. (DIGIT-CHAR-P #\5 5)
  435. NIL
  436.  
  437. (DIGIT-CHAR-P #\5 6)
  438. 5
  439.  
  440. (DIGIT-CHAR-P #\1 2)
  441. 1
  442.  
  443. (ALPHANUMERICP #\a)
  444. T
  445.  
  446. (ALPHANUMERICP #\$)
  447. NIL
  448.  
  449. (ALPHANUMERICP #\.)
  450. NIL
  451.  
  452. (ALPHANUMERICP #\A)
  453. T
  454.  
  455. (ALPHANUMERICP 1)
  456. ERROR
  457.  
  458. (ALPHANUMERICP #\\)
  459. NIL
  460.  
  461. (ALPHANUMERICP #\5)
  462. T
  463.  
  464. (ALPHANUMERICP #\))
  465. NIL
  466.  
  467. (ALPHANUMERICP #\%)
  468. NIL
  469.  
  470. (ALPHANUMERICP #\BACKSPACE)
  471. NIL
  472.  
  473. (ALPHANUMERICP #\PAGE)
  474. NIL
  475.  
  476. (ALPHANUMERICP #\RETURN)
  477. NIL
  478.  
  479. (ALPHANUMERICP #\C-A)
  480. NIL
  481.  
  482. (ALPHANUMERICP #\H-SPACE)
  483. NIL
  484.  
  485. (ALPHANUMERICP #\M-\a)
  486. NIL
  487.  
  488. (ALPHANUMERICP #6\a)
  489. NIL
  490.  
  491. (ALPHANUMERICP #6\M-C-RETURN)
  492. NIL
  493.  
  494. (ALPHANUMERICP #\5 4)
  495. ERROR
  496.  
  497. (ALPHANUMERICP #\5 8)
  498. ERROR
  499.  
  500. (ALPHANUMERICP #\E 16)
  501. ERROR
  502.  
  503. (ALPHANUMERICP #\R 35)
  504. ERROR
  505.  
  506. (CHAR= #\d #\d)
  507. T
  508.  
  509. (CHAR/= #\d #\d)
  510. NIL
  511.  
  512. (CHAR= #\d #\x)
  513. NIL
  514.  
  515. (CHAR/= #\d #\x)
  516. T
  517.  
  518. (CHAR= #\d #\D)
  519. NIL
  520.  
  521. (CHAR/= #\d #\D)
  522. T
  523.  
  524. (CHAR= #\d #\d #\d #\d)
  525. T
  526.  
  527. (CHAR/= #\d #\d #\d #\d)
  528. NIL
  529.  
  530. (CHAR= #\d #\d #\x #\d)
  531. NIL
  532.  
  533. (CHAR/= #\d #\d #\x #\d)
  534. NIL
  535.  
  536. (CHAR= #\d #\y #\x #\c)
  537. NIL
  538.  
  539. (CHAR/= #\d #\y #\x #\c)
  540. T
  541.  
  542. (CHAR= #\d #\c #\d)
  543. NIL
  544.  
  545. (CHAR/= #\d #\c #\d)
  546. NIL
  547.  
  548. (CHAR< #\d #\x)
  549. T
  550.  
  551. (CHAR<= #\d #\x)
  552. T
  553.  
  554. (CHAR< #\d #\d)
  555. NIL
  556.  
  557. (CHAR<= #\d #\d)
  558. T
  559.  
  560. (CHAR< #\a #\e #\y #\z)
  561. T
  562.  
  563. (CHAR<= #\a #\e #\y #\z)
  564. T
  565.  
  566. (CHAR< #\a #\e #\e #\y)
  567. NIL
  568.  
  569. (CHAR<= #\a #\e #\e #\y)
  570. T
  571.  
  572. (CHAR> #\e #\d)
  573. T
  574.  
  575. (CHAR>= #\e #\d)
  576. T
  577.  
  578. (CHAR> #\d #\c #\b #\a)
  579. T
  580.  
  581. (CHAR>= #\d #\c #\b #\a)
  582. T
  583.  
  584. (CHAR> #\d #\d #\b #\a)
  585. NIL
  586.  
  587. (CHAR>= #\d #\d #\b #\a)
  588. T
  589.  
  590. (CHAR> #\e #\d #\b #\c #\a)
  591. NIL
  592.  
  593. (CHAR>= #\e #\d #\b #\c #\a)
  594. NIL
  595.  
  596. (CHAR> #\z #\A)
  597. T
  598.  
  599. (CHAR> #\Z #\a)
  600. NIL
  601.  
  602. (CHAR< #\9 #\a)
  603. T
  604.  
  605. (CHAR> #\9 #\a)
  606. NIL
  607.  
  608. (CHAR> #\z #\0)
  609. T
  610.  
  611. (CHAR< #\z #\0)
  612. NIL
  613.  
  614. (CHAR-EQUAL #\d #\d)
  615. T
  616.  
  617. (CHAR-NOT-EQUAL #\d #\d)
  618. NIL
  619.  
  620. (CHAR-EQUAL #\d #\x)
  621. NIL
  622.  
  623. (CHAR-NOT-EQUAL #\d #\x)
  624. T
  625.  
  626. (CHAR-EQUAL #\d #\D)
  627. T
  628.  
  629. (CHAR-NOT-EQUAL #\d #\D)
  630. NIL
  631.  
  632. (CHAR-EQUAL #\d #\d #\d #\d)
  633. T
  634.  
  635. (CHAR-NOT-EQUAL #\d #\d #\d #\d)
  636. NIL
  637.  
  638. (CHAR-EQUAL #\d #\d #\x #\d)
  639. NIL
  640.  
  641. (CHAR-NOT-EQUAL #\d #\d #\x #\d)
  642. NIL
  643.  
  644. (CHAR-EQUAL #\d #\y #\x #\c)
  645. NIL
  646.  
  647. (CHAR-NOT-EQUAL #\d #\y #\x #\c)
  648. T
  649.  
  650. (CHAR-EQUAL #\d #\c #\d)
  651. NIL
  652.  
  653. (CHAR-NOT-EQUAL #\d #\c #\d)
  654. NIL
  655.  
  656. (CHAR-LESSP #\d #\x)
  657. T
  658.  
  659. (CHAR-NOT-GREATERP #\d #\x)
  660. T
  661.  
  662. (CHAR-LESSP #\d #\d)
  663. NIL
  664.  
  665. (CHAR-NOT-GREATERP #\d #\d)
  666. T
  667.  
  668. (CHAR-LESSP #\a #\e #\y #\z)
  669. T
  670.  
  671. (CHAR-NOT-GREATERP #\a #\e #\y #\z)
  672. T
  673.  
  674. (CHAR-LESSP #\a #\e #\e #\y)
  675. NIL
  676.  
  677. (CHAR-NOT-GREATERP #\a #\e #\e #\y)
  678. T
  679.  
  680. (CHAR-GREATERP #\e #\d)
  681. T
  682.  
  683. (CHAR-NOT-LESSP #\e #\d)
  684. T
  685.  
  686. (CHAR-GREATERP #\d #\c #\b #\a)
  687. T
  688.  
  689. (CHAR-NOT-LESSP #\d #\c #\b #\a)
  690. T
  691.  
  692. (CHAR-GREATERP #\d #\d #\b #\a)
  693. NIL
  694.  
  695. (CHAR-NOT-LESSP #\d #\d #\b #\a)
  696. T
  697.  
  698. (CHAR-GREATERP #\e #\d #\b #\c #\a)
  699. NIL
  700.  
  701. (CHAR-NOT-LESSP #\e #\d #\b #\c #\a)
  702. NIL
  703.  
  704. (CHAR-GREATERP #\z #\A)
  705. T
  706.  
  707. (CHAR-GREATERP #\Z #\a)
  708. T
  709.  
  710. (CHAR-LESSP #\9 #\a)
  711. T
  712.  
  713. (CHAR-GREATERP #\9 #\a)
  714. NIL
  715.  
  716. (CHAR-GREATERP #\z #\0)
  717. T
  718.  
  719. (CHAR-LESSP #\z #\0)
  720. NIL
  721.  
  722. (CHAR-EQUAL #\A #\a)
  723. T
  724.  
  725. (CHAR-EQUAL #\A #\C-A)
  726. T
  727.  
  728. (CHAR-EQUAL #\p #1\p)
  729. T
  730.  
  731. (CHAR-EQUAL #\p #2\p)
  732. T
  733.  
  734. (CHAR-UPCASE #\a)
  735. #\A
  736.  
  737. (CHAR-UPCASE #\A)
  738. #\A
  739.  
  740. (CHAR-UPCASE #\5)
  741. #\5
  742.  
  743. (CHAR-UPCASE #\;)
  744. #\;
  745.  
  746. (CHAR-UPCASE #\=)
  747. #\=
  748.  
  749. (CHAR= (CHAR-DOWNCASE (CHAR-UPCASE #\x)) #\x)
  750. T
  751.  
  752. (CHAR-DOWNCASE #\A)
  753. #\a
  754.  
  755. (CHAR-DOWNCASE #\a)
  756. #\a
  757.  
  758. (CHAR-DOWNCASE #\%)
  759. #\%
  760.  
  761. (CHAR-DOWNCASE #\+)
  762. #\+
  763.  
  764. (CHAR-DOWNCASE #\-)
  765. #\-
  766.  
  767. (CHAR= (CHAR-UPCASE (CHAR-DOWNCASE #\X)) #\X)
  768. T
  769.  
  770. (DIGIT-CHAR 7)
  771. #\7
  772.  
  773. (DIGIT-CHAR 12)
  774. NIL
  775.  
  776. (DIGIT-CHAR (QUOTE A))
  777. ERROR
  778.  
  779. (DIGIT-CHAR 12 16)
  780. #\C
  781.  
  782. (DIGIT-CHAR 6 2)
  783. NIL
  784.  
  785. (DIGIT-CHAR 1 2)
  786. #\1
  787.  
  788. (DIGIT-CHAR 12 14 6)
  789. NIL
  790.  
  791. CHAR-CONTROL-BIT
  792. 1
  793.  
  794. CHAR-META-BIT
  795. 2
  796.  
  797. CHAR-SUPER-BIT
  798. 4
  799.  
  800. CHAR-HYPER-BIT
  801. 8
  802.  
  803. (CHAR-BIT #\C-X :CONTROL)
  804. T
  805.  
  806. (CHAR-BIT #\C-X :META)
  807. NIL
  808.  
  809. (CHAR-BIT #\M-C-RETURN :CONTROL)
  810. T
  811.  
  812. (CHAR-BIT #\M-C-RETURN :META)
  813. T
  814.  
  815. (CHAR-BIT #\M-C-RETURN :CONTROL :META)
  816. ERROR
  817.  
  818. (CHAR-BIT #\M-C-RETURN :C-M)
  819. ERROR
  820.  
  821. (CHAR-BIT #\H-SPACE :HYPER)
  822. T
  823.  
  824. (CHAR-BIT #\S-RETURN :SUPER)
  825. T
  826.  
  827. (SET-CHAR-BIT #\X :CONTROL T)
  828. #\C-X
  829.  
  830. (SET-CHAR-BIT #\C-X :CONTROL T)
  831. #\C-X
  832.  
  833. (SET-CHAR-BIT #\C-X :CONTROL (QUOTE NIL))
  834. #\X
  835.  
  836. (SET-CHAR-BIT #\M-C-A :CONTROL T)
  837. #\M-C-A
  838.  
  839. (SET-CHAR-BIT #\A :CONTROL T)
  840. #\C-A
  841.  
  842. (SET-CHAR-BIT #\M-C-A :CONTROL (QUOTE NIL))
  843. #\M-A
  844.  
  845. (code-char  97 2 4)  #4\Meta-\a
  846.  
  847.