diff options
Diffstat (limited to 'src/lisp/core.lisp.in')
| -rw-r--r-- | src/lisp/core.lisp.in | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 433dc720..0571a908 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -1,4 +1,4 @@ -;; Ô Emacs, this is a -*- Lisp -*- file, despite apperance +;; O Emacs, this is a -*- Lisp -*- file, despite appearance ;; ;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. ;; All rights reserved. @@ -89,6 +89,7 @@ "Option" "IMPORT-MODULE" + "CONCAT" )) (in-package "AxiomCore") @@ -193,7 +194,7 @@ ;; Return a symbol object represensing option named OPT, without leading ;; double dash (--). (defun |Option| (opt) - (intern opt (find-package "AxiomCore"))) + (intern (string opt) (find-package "AxiomCore"))) ;; Returns a pair (name . value) if OPTION if of the form "--name=value", ;; where name is a symbol and value is a string. Otherwise, if @@ -337,6 +338,15 @@ (defun |resetErrorCount| nil (setq |$errorCount| 0)) +;; utils +(defun concat (a b &rest l) + (let ((type (cond ((bit-vector-p a) 'bit-vector) (t 'string)))) + (cond ((eq type 'string) + (setq a (string a) b (string b)) + (if l (setq l (mapcar #'string l))))) + (if l (apply #'concatenate type a b l) + (concatenate type a b))) ) + (defun |fatalError| (msg) (|countError|) (|diagnosticMessage| "fatal error" msg) |