X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=test.lisp;h=6d386cba2fc0c295d3d51baf5000a0c094bedce7;hb=2af650b83b1449de72dc7b8209cb2310cdea0509;hp=1ef21dea7676bc8f74e586a7a3c310613f53c084;hpb=1d3ea0158e2e12e5296d1e8816ec3fb5c76173d2;p=jscl.git diff --git a/test.lisp b/test.lisp index 1ef21de..6d386cb 100644 --- a/test.lisp +++ b/test.lisp @@ -1,5 +1,4 @@ -(lambda (x y) - x) +(lambda (x y) x) (debug "hola") (debug '(1 2 3 4)) @@ -20,6 +19,10 @@ (fsetq f (lambda (x) (+ x 10))) (debug (f 20)) +(debug ((lambda (x) x) 9999)) + +(debug #'f) + ;;; Macros (debug "---MACROS---") @@ -33,13 +36,51 @@ (defmacro incf (x) (list 'setq x (list '+ 1 x))) +(eval-when-compile + (%compile-defvar 'x)) + (setq x 10) (incf x) (debug x) +;;; Conses +(debug (cons 1 2)) +(debug (car (cons 1 2))) +(debug (cdr (cons 1 2))) + +(setq x '(1 . 2)) +(debug x) +(debug (eq x x)) +(debug (eq '(1 . 2) '(1 . 2))) + +;;; Symbols +(debug (symbol-name 'foo)) +(debug (symbol-name 'foo-bar)) + +(debug (progn 1 2 3 123)) + +(debug (let ((x 99999)) + (incf x))) ;;; &rest lambda-list (debug (lambda (&rest x) x)) +(debug (lambda (x y &rest z) z)) (debug (lambda (x y &rest z) x)) -(debug (lambda (x y &rest z) y)) + + +(progn + (eval-when-compile + (%compile-defun 'f)) + (fsetq f (lambda (x) (* x x)))) + +(debug (f 33)) + +;; (debug (foo)) + +;; (eval-when-compile +;; (%compile-defmacro 'defun +;; (lambda (name args &rest body) +;; (list 'eval-when-compile +;; (list 'compile-defun) +;; (list 'fsetq (list 'lambda args (list 'progn body)))))))