-(lambda (x y)
- x)
+(lambda (x y) x)
(debug "hola")
(debug '(1 2 3 4))
(fsetq f (lambda (x) (+ x 10)))
(debug (f 20))
+(debug ((lambda (x) x) 9999))
+
+(debug #'f)
+
;;; Macros
(debug "---MACROS---")
(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 (x y &rest z) z))
(debug (lambda (x y &rest z) x))
-;;; Conses
-(debug (cons 1 2))
-(debug (car (cons 1 2)))
-(debug (cdr (cons 1 2)))
-
+;; (debug (foo))
;; (eval-when-compile
;; (%compile-defmacro 'defun