aboutsummaryrefslogtreecommitdiff
path: root/src/interp/sys-macros.lisp
diff options
context:
space:
mode:
authordos-reis <gdr@axiomatics.org>2011-04-22 15:51:57 +0000
committerdos-reis <gdr@axiomatics.org>2011-04-22 15:51:57 +0000
commit32efd3b0691918cf1d662b095c653d5a0a17ff7b (patch)
treeb340c1d23d752542fe88fd80ae6d559198c0b263 /src/interp/sys-macros.lisp
parentb0046ba3929c513a399fd1ebb84dee1712c55a02 (diff)
downloadopen-axiom-32efd3b0691918cf1d662b095c653d5a0a17ff7b.tar.gz
more cleanup
Diffstat (limited to 'src/interp/sys-macros.lisp')
-rw-r--r--src/interp/sys-macros.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp
index 75beaa84..ae42eeb2 100644
--- a/src/interp/sys-macros.lisp
+++ b/src/interp/sys-macros.lisp
@@ -374,7 +374,7 @@
(defmacro SPADCALL (&rest L)
(let ((args (butlast l))
- (fn (car (last l)))
+ (fn (car (|lastNode| l)))
(gi (gensym)))
;; (values t) indicates a single return value
`(let ((,gi ,fn))