Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 3f74981)
cosmetic: deduplicate expand-deftype function definition
authorDaniel Kochmański <daniel@turtleware.eu>
Tue, 18 Aug 2015 10:07:57 +0000 (12:07 +0200)
committerDaniel Kochmański <daniel@turtleware.eu>
Tue, 18 Aug 2015 10:07:57 +0000 (12:07 +0200)
Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>
src/cmp/cmpprop.lsp patch | blob | blame | history
src/cmp/cmptype.lsp patch | blob | blame | history

diff --git a/src/cmp/cmpprop.lsp b/src/cmp/cmpprop.lsp
index 17bf4ea..a676e2a 100644 (file)
--- a/src/cmp/cmpprop.lsp
+++ b/src/cmp/cmpprop.lsp
@@ -339,7 +339,7 @@ compute it. This version only handles the simplest cases."
                  'character)
                 ((eq array 'base-string)
                  'base-char)
-                ((member (setf array (expand-deftype array))
+                ((member (setf array (si::expand-deftype array))
                          '(array vector simple-array))
                  t)
                 ((atom array)
diff --git a/src/cmp/cmptype.lsp b/src/cmp/cmptype.lsp
index 13f5538..6faa196 100644 (file)
--- a/src/cmp/cmptype.lsp
+++ b/src/cmp/cmptype.lsp
@@ -42,16 +42,6 @@
         (c1constant-value new-value :only-small-values t)
         (c1nil))))
 
-(defun expand-deftype (type)
-  (let (base args)
-    (if (atom type)
-        (setf base type args nil)
-        (setf base (car type) args (cdr type)))
-    (let ((fn (get-sysprop base 'SI::DEFTYPE-DEFINITION)))
-      (if fn
-          (expand-deftype (apply fn args))
-          type))))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; TYPE CHECKING
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)