home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-sr.lha / tests / backquot.tst < prev    next >
Encoding:
Text File  |  1996-04-15  |  349 b   |  27 lines
  1. ;;; testen von backquote
  2.  
  3.  
  4. (setf x '(a b c))
  5. (a b c)
  6.  
  7. `(x ,x ,@x foo ,(cadr  x) bar ,(cdr x) baz ,@(cdr x) ,. x)
  8. (X (A B C) A B C FOO B BAR (B C) BAZ B C A B C)
  9.  
  10. (read-from-string "`,@x")
  11. ERROR
  12.  
  13. `(,x . ,x)      ; = (append (list x) x)
  14. ((a b c) a b c)
  15.  
  16.  
  17. (read-from-string "`(,x . ,@x)")
  18. ERROR
  19.  
  20.  
  21. (read-from-string ",x")
  22. ERROR
  23.  
  24. `#(1 2 3 4)
  25. #(1 2 3 4)
  26.  
  27.