Преглед изворни кода

readmacro assert simplification

master
Michał Herda пре 4 година
родитељ
комит
d8d1a84007
1 измењених фајлова са 2 додато и 5 уклоњено
  1. 2
    5
      pseudonyms.lisp

+ 2
- 5
pseudonyms.lisp Прегледај датотеку

@@ -138,12 +138,9 @@ Optional argument designates the package name, from inside which pseudonyms shou
() "Pseudonym ~S was not set. Check your spelling or use defpseudonym."
pseudonym)
(assert (or intern-p
(find-symbol (string symbol) name))
() "Symbol ~S not found in the ~A package."
(string symbol) (string name))
(assert (or intern-p
(find-symbol (string symbol) name)
(equal :external (nth-value 1 (find-symbol (string symbol) name))))
() "Symbol ~S is not external in the ~A package."
() "Symbol ~S is not found or not external in the ~A package."
(string symbol) (string name))
(intern (string symbol) name))))


Loading…
Откажи
Сачувај