Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2019
114
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1.  
  2. (deftype extendable-vector (&optional (type t type-p))
  3. `(and ,(if type-p
  4. `(vector ,type)
  5. 'vector)
  6. (not simple-array)
  7. (satisfies adjustable-array-p)
  8. (satisfies array-has-fill-pointer-p)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement