[armedbear-ticket] [armedbear] #290: Compiling (defvar *foo* '(quote . x)) throws an error

[armedbear]

#290: Compiling (defvar *foo* '(quote . x)) throws an error
-----------------------+----------------------------------------------------
 Reporter:  sboukarev  |       Owner:  ehuelsmann
     Type:  defect     |      Status:  new       
 Priority:  major      |   Milestone:            
Component:  compiler   |     Version:            
 Keywords:             |  
-----------------------+----------------------------------------------------
 The value X is not of type LIST.

 The attached patch fixes it by using proper-list-of-length-p instead of
 length.

-- 
Ticket URL: <http://trac.common-lisp.net/armedbear/ticket/290>
armedbear <http://common-lisp.net/project/armedbear>
armedbear