Changeset 42


Ignore:
Timestamp:
06/09/16 19:55:44 (10 months ago)
Author:
gz
Message:

Fix for lispworks - weak arrays must be adjustable

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/q.lisp

    r38 r42  
    4949(defvar *q-bufs*  
    5050  #+ccl (ccl::%cons-pool) 
    51   #+LispWorks (let ((arr (make-array $max-num-q-bufs))) 
     51  #+LispWorks (let ((arr (make-array $max-num-q-bufs :adjustable T))) 
    5252                (hcl:set-array-weak arr t) 
    5353                arr)) 
Note: See TracChangeset for help on using the changeset viewer.