Commit 16cc5f3b authored by lhealy's avatar lhealy Committed by Liam Healy

Intern symbols in :GSL package.


git-svn-id: svn+ssh://common-lisp.net/project/gsll/svn/trunk@29 af03a46b-e846-0410-96e5-d5653c316fd0
parent 899d8cb0
;; Macros to interface GSL functions.
;; Liam Healy
;; Time-stamp: <2008-02-17 18:44:18EST interface.lisp>
;; Time-stamp: <2008-03-02 21:43:02EST interface.lisp>
;; $Id$
(in-package :gsl)
......@@ -258,11 +258,13 @@
,documentation
(if ,(first optional-arglist)
(,(intern
(concatenate 'string (string name) (string optionals)))
(concatenate 'string (string name) (string optionals))
:gsl)
,@mandatory-arglist ,@optional-arglist)
(,(intern
(concatenate 'string (string name)
(if no-optional (string no-optional) "")))
(if no-optional (string no-optional) ""))
:gsl)
,@mandatory-arglist)))))
;;;;****************************************************************************
......
;; Utility definitions
;; Liam Healy, Sun Dec 3 2006 - 10:21
;; Time-stamp: <2008-02-16 10:35:30EST utility.lisp>
;; Time-stamp: <2008-03-02 21:43:01EST utility.lisp>
;; $Id$
(in-package :gsl)
(defun make-symbol-from-strings (&rest strings)
"Construct a symbol by concatenating words with hyphens."
(intern (format nil "~{~:@(~a~)~^-~}" (mapcar #'string strings))))
(intern (format nil "~{~:@(~a~)~^-~}" (mapcar #'string strings)) :gsl))
(defparameter *gsl-prefix* 'gsl)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment