home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / eval20.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  391 b   |  46 lines
  1. ;; testen abschitt 20
  2.  
  3.  
  4. ; eval
  5.  
  6. (eval (list 'cdr (car '((quote (a . b)) c))))
  7. b
  8.  
  9. (makunbound 'x)
  10. x
  11.  
  12. (eval 'x)
  13. ERROR
  14.  
  15. (setf x 3)
  16. 3
  17.  
  18. (eval 'x)
  19. 3
  20.  
  21. ;constantp
  22.  
  23. (constantp 2)
  24. T
  25.  
  26. (constantp #\r)
  27. T
  28.  
  29. (constantp "max")
  30. T
  31.  
  32. (constantp '#(110))
  33. #+(or XCL AKCL) T #-(or XCL AKCL) NIL
  34.  
  35. (constantp :max)
  36. T
  37. (constantp T)
  38. T
  39. (constantp NIL)
  40. T
  41. (constantp 'PI)
  42. #-CLISP T #+CLISP NIL
  43. (constantp '(quote foo))
  44. T
  45.  
  46.