Merge 5fc7c8c into 3225e4e

fukamachi · Feb 2, 2016 · f0f501b · f0f501b
2 parents 3225e4e + 5fc7c8c
commit f0f501b
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)))))