Merge pull request #8 from macdavid313/master

fix a bug due to allegro's function `variable-information` problem
fukamachi · Feb 3, 2016 · 9643f91 · 9643f91
2 parents c5fd6f7 + 5fc7c8c
commit 9643f91
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/proc-parse.lisp b/src/proc-parse.lisp
@@ -178,7 +178,9 @@
     ((constantp var) (type-of var))
     #+(or sbcl openmcl cmu allegro)
     ((and (symbolp var)
-          (cdr (assoc 'type (nth-value 2 (variable-information var env))))))
+	  #+allegro (cadr (assoc 'type (nth-value 2 (variable-information var env))))
+          #-allegro (cdr (assoc 'type (nth-value 2 (variable-information var env))))
+	  ))
     ((and (listp var)
           (eq (car var) 'the)
           (cadr var)))))