Commit eaf29108 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Provide a list to SHADOW to make ECL happier at compile-time

(the CLHS implies that a symbol designates a singleton list of its name).
parent fc2dabe0
......@@ -66,7 +66,7 @@ or when loading the package is optional."
(defun shadowing-import* (symbol package-designator)
(shadowing-import (or symbol (list symbol)) (find-package* package-designator)))
(defun shadow* (name package-designator)
(shadow (string name) (find-package* package-designator)))
(shadow (list (string name)) (find-package* package-designator)))
(defun make-symbol* (name)
(etypecase name
(string (make-symbol name))
Supports Markdown
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