diff options
Diffstat (limited to 'src/interp/macros.lisp')
-rw-r--r-- | src/interp/macros.lisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/macros.lisp b/src/interp/macros.lisp index 15dd7678..33d031aa 100644 --- a/src/interp/macros.lisp +++ b/src/interp/macros.lisp @@ -1,6 +1,6 @@ ;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. ;; All rights reserved. -;; Copyright (C) 2007-2011, Gabriel Dos Reis. +;; Copyright (C) 2007-2012, Gabriel Dos Reis. ;; All rights reserved. ;; ;; Redistribution and use in source and binary forms, with or without @@ -524,8 +524,8 @@ terminals and empty or at-end files. In Common Lisp, we must assume record size (|$OutputStream| out-stream) val) (declare (special curoutstream |$algebraOutputStream|)) - (setq val (catch 'spad_reader - (catch 'TOP_LEVEL + (setq val (catch |$SpadReaderTag| + (catch |$intTopLevel| (apply (symbol-function func) args)))) (cons val (get-output-stream-string |$OutputStream|)))) |