diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-03-24 11:47:01 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-03-24 11:47:01 +0000 |
| commit | 55893dcd3118428f046d5f539d80e9aa5345b885 (patch) | |
| tree | 05992761c4ad4d3421b7063de3357d1ced007c8a /src/lisp | |
| parent | 97f54bf68c5aefffc94a4935e08fd6449ec501c9 (diff) | |
| download | open-axiom-55893dcd3118428f046d5f539d80e9aa5345b885.tar.gz | |
Add support for SBCL and CLisp
Diffstat (limited to 'src/lisp')
| -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) |