Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 8dc65cf478
Fetching contributors…

Cannot retrieve contributors at this time

21 lines (15 sloc) 0.721 kB
;; License: MH, BSD/MIT -- fill in details!
;; DSL support tools.
(in-package :lisp-matrix)
(defun make-symbol* (&rest args)
"build a symbol by concatenating each element of ARGS, and intern it
in the current package. Elements can be strings or symbols."
(intern (apply #'concatenate 'string
(mapcar (lambda (arg)
(etypecase arg
(symbol (symbol-name arg))
(string arg)))
args))))
;;; (make-symbol* "test" "me") => |testme| , :INTERNAL
;;; (make-symbol* "test" 'metoo "me") => |testMETOOme| , :INTERNAL
;;; (make-symbol* "TEsT" 'metoo "me") => |TEsTMETOOme| , :INTERNAL
Jump to Line
Something went wrong with that request. Please try again.