Plaster
New
List
Login
text
default
anonymous
2024.04.03 13:40:25
(sequence:make-sequence-like '(1 2 3) 3) ; => (NIL NIL NIL) (sequence:make-sequence-like '(1 2 3) 4) ; => (NIL NIL NIL NIL) (sequence:adjust-sequence '(1 2 3) 4) ; => (1 2 3 NIL) (sequence:make-sequence-like #(1 2 3) 3) ; => #(0 0 0) (sequence:make-sequence-like #(1 2 3) 4) ; => #(0 0 0 0) (sequence:adjust-sequence #(1 2 3) 4) ; => #(1 2 3 0) (sequence:make-sequence-like (make-array 3 :element-type 'double-float :initial-contents '(1d0 2d0 3d0)) 3) ; => #(0.0d0 0.0d0 0.0d0) (sequence:make-sequence-like (make-array 3 :element-type 'double-float :initial-contents '(1d0 2d0 3d0)) 4) ; => #(0.0d0 0.0d0 0.0d0 0.0d0) (sequence:adjust-sequence (make-array 3 :element-type 'double-float :initial-contents '(1d0 2d0 3d0)) 4) ; => #(1.0d0 2.0d0 3.0d0 0.0d0) (sequence:make-sequence-like #(nil nil nil) 3) ; => #(0 0 0)
Raw
Annotate
Repaste
Edit