294 |
(make-array '(5) :element-type 'long-float |
(make-array '(5) :element-type 'long-float |
295 |
:initial-contents '(1.0l0 2.0l0 3.0l0 4.0l0 5.0l0)) |
:initial-contents '(1.0l0 2.0l0 3.0l0 4.0l0 5.0l0)) |
296 |
) |
) |
297 |
|
|
298 |
|
;; The ever-popular NIL array |
299 |
|
(handler-case |
300 |
|
(list (make-array '(0) :element-type nil)) |
301 |
|
(error () nil)) |
302 |
|
|
303 |
;; more kinds of arrays here later |
;; more kinds of arrays here later |
304 |
)) |
)) |
305 |
|
|
358 |
(defgeneric meaningless-user-generic-function-for-universe (x y z) |
(defgeneric meaningless-user-generic-function-for-universe (x y z) |
359 |
(:method ((x integer) (y integer) (z integer)) (+ x y z))) |
(:method ((x integer) (y integer) (z integer)) (+ x y z))) |
360 |
|
|
361 |
(eval-when (load) |
(eval-when #+gcl (load) #-gcl (:load-toplevel) |
362 |
(compile 'meaningless-user-function-for-universe) |
(compile 'meaningless-user-function-for-universe) |
363 |
(compile 'meaningless-user-generic-function-for-universe) |
(compile 'meaningless-user-generic-function-for-universe) |
364 |
) |
) |