tests/019/redef.tl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

(load "../common")

(defun foo () :foo)

(defvar foov :foov)

(defun bar () (list (foo) foov))

(compile 'bar)

(test (bar) (:foo :foov))

(defun foo () :bar)

(makunbound 'foov)

(defparml foov :barv)

(test (bar) (:bar :barv))

(defsymacro foov 42)

(test (bar) :error)