HDTenEightyP/NetNews huggingface dataset:
From: gat@robotics.jpl.nasa.gov (Erann Gat)
Subject: Using LAP for external development
Organization: Jet Propulsion Laboratory
Distribution: co
Date: 11 Dec 92 22:20:30 GMT
X-Note1: mail msgid was <1992Dec11.222030.21262@elroy.jpl.nasa.gov>
X-Note2: message-id generated by recnews

I have written some minor extensions to the LAP assembler that allow you
to extract label offsets.  This is useful when using LAP to write assembler
code for external processors.  If anyone is interested in this, drop me
a line.

Erann Gat
gat@robotics.jpl.nasa.gov
gat@aig.jpl.nasa.gov
From: moeller@kogs26.informatik.uni-hamburg.de (Ralf Moeller)
Newsgroups: comp.lang.lisp.mcl
Subject: psetf bug
Date: 16 Dec 92 18:42:21 GMT


? (macroexpand '(psetf))
(progn (progn (setf nil nil)) nil)

rm
Newsgroups: comp.lang.lisp.mcl
From: moore@cs.utah.edu (Tim Moore)
Subject: Re: non quoted arguements
In-reply-to: bright@ENH.NIST.GOV's message of 14 Dec 92 15:24:08 GMT
Organization: University of Utah CS Dept
Date: 14 Dec 92 10:02:54

In article <01GSAWG9D45U001D1T@ENH.NIST.GOV> bright@ENH.NIST.GOV writes:

   How does one write a function/macro/anything to return the input, like the
   old nlambdas and fexpers used to do?  The reason:  I'd like to track what I
   do without having to quote everything.  Say, track-it, which returns the
   value of foo, but pushes the symbol foo onto a list:

   (setq bar '(a list with data))   (defparameter *all-new-names* '(some old
   names too))
   (track-it bar) --> (a list with data), and   *all-new-names* = (bar some
   old names too)

(defmacro track-it (name)
  `(progn
     (pushnew ',name *all-new-names*)
     ,name))

--
Tim Moore                    moore@cs.utah.edu {bellcore,hplabs}!utah-cs!moore
"Wind in my hair - Shifting and drifting - Mechanical music - Adrenaline surge"
	- Rush
Newsgroups: comp.lang.lisp.mcl
From: gat@robotics.jpl.nasa.gov (Erann Gat)
Subject: Using LAP for external development
Organization: Jet Propulsion Laboratory
Date: Fri, 11 Dec 1992 22:20:30 GMT

I have written some minor extensions to the LAP assembler that allow you
to extract label offsets.  This is useful when using LAP to write assembler
code for external processors.  If anyone is interested in this, drop me
a line.

Erann Gat
gat@robotics.jpl.nasa.gov
gat@aig.jpl.nasa.gov
From: cowan@aero.org (Ric Cowan)
Newsgroups: comp.lang.lisp.mcl
Subject: MCL 2.0 under A/UX
Date: 15 Dec 92 15:08:18
Organization: The Aerospace Corporation, El Segundo
Distribution: comp
NNTP-Posting-Host: armadillo.aero.org

I just brought A/UX 3.0 up on a Quadra 950.  When I try to run MCL 2.0
final, MCL dies a horrible death.  Is it supposed to work? 

--
Ric
From: dr3f+@andrew.cmu.edu ("Douglas E. Roesch")
Newsgroups: comp.lang.lisp.mcl
Subject: Powerbook 170 problems?
Date: 16 Dec 92 19:30:31 GMT

I've tried running both MCL 2.0 and MCL 2.0p1 on a Powerbook 170 w/ 8 Mb
of RAM (no extensions).  MCL 2.0 exits immediatly w/ a Type 3 error, and
MCL 2.0p1 exits immediately with a "Bad F-Line Instruction" error.  All
my other apps work fine.
 
Is this an MCL problem or a problem with my powerbook?
 
Thanks,
Douglas Roesch
 
----------
Douglas Roesch, Research Programmer
345B Baker Hall, Carnegie-Mellon University
Pittsburgh, PA   15213
douglas.roesch@cmu.edu
From: straz@cambridge.apple.com (Steve Strassmann)
Newsgroups: comp.lang.lisp.mcl
Subject: .SIT files
Date: 20 Dec 92 02:11:14 GMT

>Date: 18 Dec 92 17:06:42 EST
>From: Bruce Lester <72110.1107@CompuServe.COM>
>To: MCL bulletin board <info-macl@cambridge.apple.com>
>Subject: .SIT files
>
>I downloaded some .LISP files from AppleLink (.SIT).  Does anyone know how to 
>unpack these?
>
>Bruce Lester

The ".sit" suffix usually means the files have been archived with
Stuffit, a popular archive/compression utility. Various versions
of Stuffit (free, shareware, and commercial) are widely available
from users groups and BBS's, and surely from Compuserve too
(check out the Mac shareware section.)

I would recommend "Stuffit Expander", which is free and expands
several popular file formats, including Applelink packages.

On the Internet, stuffit is available from sumex-aim.stanford.edu
in the /info-mac/util/ directory and other places.
Newsgroups: comp.lang.lisp.mcl
From: hermens@wsuaix.csc.wsu.edu (Leonard Hermens -- EECS)
Subject: Re: imagewriter crashes
Organization: Washington State University
Distribution: co
Date: 16 Dec 92 20:29:01 GMT
X-Note1: mail msgid was <1992Dec16.202901.16823@serval.net.wsu.edu>
X-Note2: message-id generated by recnews

In article <9212152005.AA21540@brazil.cambridge.apple.com> laura_bagnall@terc.edu ("Laura Bagnall") writes:
>REGARDING                imagewriter crashes
>I have an application which prints just fine on my Laserwriter
>here, but crashes when printing on an Imagewriter on site. 

   From Apple...the patch you want...
      Works on 2.0 or 2.0p1.


Leonard Hermens
Washington State University

(This file must be converted with BinHex 4.0)

:&A"bD@jd,A"[FR3YF'&dBfJZCQ&cE!"'390-3d0--J%!N!-&@J#3"2'Rr`!!!3#
3!``!!!91rb3#!)!!!J#3!`)%&#!H!*!%#!&1V4!!)$`!N!3M`!#3!`KB6dje&!!
$!`NIC'Jk3d0--Li`1R"bD@jd,A"[FR3YF'&dBfJZE'PcF!f1!d0$6"SU6%p"4%P
14be'58a&,90299*$45e'58a&+J38)"i!N!3)!8kY%!!J2!#3"(J%@%p1q3#3!a#
e!!8$#30$3d`0!`!!#e0&9#e3380,38G&""3J9J#3"!J"6Ud3!#"m!*!$#%kY#p!
JI!#3!`K1V3[3)(`!N!-)6Ud,d#!m!*!%6Ud0X#)!)!`N2!#3"(J-)(`!N!-36Ud
18(B#6Zd,S,!!"!F&N!-$$3-!!")U9d&56Le*4Le5484&4NP145S0!`!!'5TA39*
1,8P',9*&4%9'58j&,8Y&8Nj&6#S0!`!!&#T548028N3Y8dp98N0&,8C*6%8U$3-
!!!Y'8N9%,9G*6N429a3Jr`,Um!"""5)"6Ud2J!!%!!4)jJF`*R`!N!-3ZHi!&'B
',@hqq!!B5(S!#%kY$[4J&%+Q,6`!"S!!F"pi#%kY$SbSr8je3UBY2!!'3!"`(hJ
)6Ud1M+Mp)$`!!!,iH!41NhJ!6VN!N!-3+J!JI!#3!`K1V4DS,3"`#(J%6Ud1M+K
4ZHi!''BJ,38Y"5dm!!"%i#dm!!,!)#!m!*!$m(J36Ud1M+MpB$3Y"5dm!!!N3#d
m!!'3!#"`2(J-6Ud1M+Mp5%")`1H!#!!!#fB3,6`!N!3Y1[rkH!41V3Zm)M`!N!3
J$%kY$D`Y!#)@)#crZ%kY$Da"l2qi6Ud2D#!Z!"K)HJ'U6Ud2[#d-,3`J,J!%)(S
!JNkY$fJJ,J!-)(`!N!-)6Ud2D*()6Ud1V#i)NFK1V3kX*%JL"b!+H!K1Z3#3!a"
1V3UJ5(S!#%kY$[4J$L)()!Ti#%kj!*!$%%je,39#TN+Q,6`J!'!!)$`!!!K8H""
1V3k-U2e1V3kX,3JJ&RJ%6VN!N!-35(S!#%kY$[4J,,Rj!*!$#'F)H!"1Z3#3!a"
`%%kY$N!J95p3!!J[I!J!")3!"%kY$kLSr8je,3a)HJ!)6Ud1p'!@ZHi!"'F1)'i
!"%kY&aa1V3q)S#T1GC()6Ud1V#`)*!9b!#!'H!a1Z3#3!a!XJ#!m!!!$#(J%6T-
J,J"iH!41Z3#3!a"1V3ii6Ud,Z&K16Ud,Z&K16Ud11%kY#lK1V3Zi)%91V4FF)&"
`!"!S!%6RJ&'!CNTi!%k6)$`!N!236Ud2+#`),39#TN+Q3UBY"Ldm!!#N!#dm!!-
!+#!m!!-m9(JF6Ud1M+Mp)JFJ#RJ)6VN!N!-36Ud11(J!6T0J!L!-GJ&1V3jdGJ&
1V3pJ,%P36NkY#lK1V3pN6Hi!+'!B6Ud,Z%kY$f40lJ!S,3!J&RJ%6U`!@PK1)!a
F3%kY#lK-hJcJ,&p1G5!-6Ud,Z'$`!*!%r)-!,cJ-+J8)&Jd3)!J`"#F($3-!!!9
38N0)5`d$!!!34d98,9"558j8,9*&3dp54!d$!!!1+N&58NpA,8098P028LS0$JG
,49PA6e*%"N0"6N0&6!d1#d0268e26Le-5903"8958Np5$3-!!"%U3P*&38XY6di
Y49*56e*6+Jd$!!!+4d98,8GA6e*-4)d$!!!+8d98,8GA6e*-4!-!!3d$!!!3+NK
$,9""4d8Y6e"&6Le3+Jd$!!!05%-Y3da28d8Y8%&(43d$!!!1*94)58j(,9"258j
849)0!`!!$84539FY5%&54%028&N$!!%0!`!!$eG*6N429be)39*%3dp3@3d$!!!
+*84&4Ne&9%K242p9K3!!!:
From: 72110.1107@CompuServe.COM (Bruce Lester)
Newsgroups: comp.lang.lisp.mcl
Subject: .SIT files
Date: 18 Dec 92 22:06:42 GMT

I downloaded some .LISP files from AppleLink (.SIT).  Does anyone know how to 
unpack these?

Bruce Lester
From: laura_bagnall@terc.edu ("Laura Bagnall")
Newsgroups: comp.lang.lisp.mcl
Subject: imagewriter crashes
Date: 15 Dec 92 20:00:30 GMT

REGARDING                imagewriter crashes
I have an application which prints just fine on my Laserwriter
here, but crashes when printing on an Imagewriter on site. 
Apparently the documents will print, but then doing anything
else after that crashes.  One error message that was reported to
me said "Value #<A Mac non-one pointer #x10009> is not of the
expected type ????????? HANDLER>".  In a day or two I hope to
get an imagewriter in here to try to track down the problem, but
in the meantime, I was wondering if anybody else had ever run
into the problem of having something print fine on a laserwriter
but crash on an imagewriter.  I'm running MCL 2.0 final, but
without any of the patches.

Thanks,
Laura
From: djskrien@COLBY.EDU (Dale J. Skrien)
Newsgroups: comp.lang.lisp.mcl
Subject: view-cursor
Date: 16 Dec 92 00:11:33 GMT


I've created a special subclass of view for which I want to continually
display the mouse position when it is over the view.  I want the mouse
position to be displayed in the view-window of the view but outside
of the view.  So I wrote a method of view-cursor for my view as follows:

(defmethod view-cursor ((self my-special-view-class) where)
  (with-focused-view (view-window self)
    (#_textmode #$patCopy)
    (with-pstrs ((horizontal (format nil "~3d" (point-h where)))
                 (vertical (format nil "~3d" (point-v where))))
        (#_moveto 10 10)
	(#_drawstring horizontal)
	(#_moveto 10 40)
	(#_drawstring vertical)))
  *arrow-cursor*   ;return the arrow cursor
  )

My Question:  Is this the best way to do it (time-wise and
memory-wise)?  In particular, does this do some cons-ing that
will rapidly eat up memory while the mouse is over the view?

Dale Skrien
Colby College
Waterville,  ME  04901
From: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: view-cursor
Date: 16 Dec 92 16:08:35 GMT

At 19:11 12/15/92 -0500, Dale J. Skrien wrote:
>I've created a special subclass of view for which I want to continually
>display the mouse position when it is over the view.  I want the mouse
>position to be displayed in the view-window of the view but outside
>of the view.  So I wrote a method of view-cursor for my view as follows:
>
>(defmethod view-cursor ((self my-special-view-class) where)
>  (with-focused-view (view-window self)
>    (#_textmode #$patCopy)
>    (with-pstrs ((horizontal (format nil "~3d" (point-h where)))
>                 (vertical (format nil "~3d" (point-v where))))
>        (#_moveto 10 10)
>        (#_drawstring horizontal)
>        (#_moveto 10 40)
>        (#_drawstring vertical)))
>  *arrow-cursor*   ;return the arrow cursor
>  )
>
>My Question:  Is this the best way to do it (time-wise and
>memory-wise)?  In particular, does this do some cons-ing that
>will rapidly eat up memory while the mouse is over the view?

You're consing two 3-character strings each time your view-cursor
method runs. (format nil ...) conses a string. You'd do better to
FORMAT directly to the window:

(defmethod view-cursor ((self my-special-view-class) where)
  (let ((window (view-window self)))
    (with-focused-view window
      (#_textmode #$patCopy)
      (#_moveto 10 10)
      (format window "~3d" (point-h where))
      (#_moveto 10 40)
      (format window "~3d" (point-v where))))
  *arrow-cursor*   ;return the arrow cursor
  )

Unfortunately, this still conses because MCL's FORMAT ~D code conses if
you specify a MINCOL argument. Two choices: do the numeric conversion
yourself or ask for my patch that eliminates the consing from MCL's
FORMAT ~D code. The patch is called "less-format-consing-patch.lisp".
(This has bothered me for a while. Thanx for giving me the impetus to
spend an hour fixing it)
From: 72110.1107@CompuServe.COM (Bruce Lester)
Newsgroups: comp.lang.lisp.mcl
Subject: Databases for MCL 2.0
Date: 17 Dec 92 16:31:19 GMT

I am looking for a commercially available database product for which MCL 2.0 
has a direct interface. Does anyone know if MCL 2.0 works with off-the-shelf 
object-oriented or relational database products (stand-alone or Unix server)?


        Versant
        Servio - Gemstone
        Objectivity
        Object Design
        Object Store
        Itasca

        Oracle
        Sybase

Can Blackboard Technology Group's GBB be using with MCL as a database?

Bruce Lester
Pillsbury
From: mmm@casimir.lanu.ca.us (Michael Maciag)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: Commercial browser/editors for MCL?
Date: 12 Dec 92 00:59:31 GMT
             <9212110654.AA05793@cse.uta.edu>


	Object Master transforms source code files for a "project" into
a "psuedo-image" database (somewhat similar to a Smalltalk image
file). This allows the programmer to view and directly edit the classes
and their associated methods and variables. Inheritance relationships
between the classes are understood. It's browser/editor is very similar
to a Smalltalk one. OM also understands C++ syntax so creation of new
classes/variables/methods is assisted through dialog boxes.
	A similar product for MCL/CLOS could work through the wonderful
CLOS metobject protocol to provide all these features as well as
many others. A commercial (read "industrial-strength", "supported")
offering would seem (to me) to fill a gaping hole in the CLOS 
development area.
=========================================================================
Michael Maciag		mmm@casimir.lanu.ca.us		uunet!casimir!mmm
=========================================================================
From: straz@cambridge.apple.com (Steve Strassmann)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: FFT code?
Date: 21 Dec 92 00:55:12 GMT

>Date: Fri, 18 Dec 92 15:34:03 PST
>From: mmeehan@eesof.com (Mike Meehan)
>To: bright@ENH.NIST.GOV
>Subject: Re: FFT code?
>Cc: info-mcl@cambridge.apple.com
>
>Dave,
>
>There is a clmath lib somewhere on one of mit's file servers.
>Ive grep'ed my mail archives but cant find where Straz told me about
>this stuff...If you cant find it, lemme know and ill put it up on our
>ftp site...
>
>Its probably on the CD, I dont think its on cambridge.apple.com, but
>maybe it should?

It's at ftp.ai.mit.edu:/pub/clmath.tar and on the CD in "CL Math".
Doesn't seem to have FFT's though. Here's the README file:

-------
Here's a LISP Library of mathematical functions that calculate
hyperbolic and inverse hyperbolic functions. Bessel functions,
elliptic integrals, the gamma and beta functions, and the incomplete
gamma and beta functions.  There are probability density functions,
cumulative distributions, and random number generators for the normal,
Poisson, chi-square, Student's T, and Snedecor's F functions. Multiple
linear regression, Fletcher-Powell unconstrained minimization,
numerical integration, root finding, and convergence. Code to factor
numbers and to do the Solovay-Strassen probabilistic prime test.

A paper describing this library is available from the MIT AI Lab
publications department as AIM-774

:author Gerald Roylance
:title "Some Scientific Subroutines in LISP"
:date September 1984
:pages 12
:cost $3.00
:adnum AD-A147889
From: djskrien@COLBY.EDU (Dale J. Skrien)
Newsgroups: comp.lang.lisp.mcl
Subject: Re:  imagewriter crashes
Date: 15 Dec 92 23:54:51 GMT

*---------------------------------*
>REGARDING                imagewriter crashes
>I have an application which prints just fine on my Laserwriter
>here, but crashes when printing on an Imagewriter on site.
>Apparently the documents will print, but then doing anything
>else after that crashes.  One error message that was reported to
>me said "Value #<A Mac non-one pointer #x10009> is not of the
>expected type ????????? HANDLER>".  In a day or two I hope to
>get an imagewriter in here to try to track down the problem, but
>in the meantime, I was wondering if anybody else had ever run
>into the problem of having something print fine on a laserwriter
>but crash on an imagewriter.  I'm running MCL 2.0 final, but
>without any of the patches.
*---------------------------------*

Are you using Mark Tapia's print-u.lisp code?  I've been using it
and have found it to work on a laserwriter under System 7,
but when I tested it under System 6 on an imagewriter,
I got the same crash as you.
From: engber@aristotle.ils.nwu.edu (Mike Engber)
Newsgroups: comp.lang.lisp.mcl
Subject: oodles-of-utils 1.3
Date: 15 Dec 92 16:22:02 GMT

I just put oodles-of-utils version 1.3 at the cambridge archives.

 pub/MCL2/contrib/oou-v13/oou-readme.txt
 pub/MCL2/contrib/oou-v13/oou-lisp.hqx
 pub/MCL2/contrib/oou-v13/oou-fasl.hqx

This version consists of a few bugs fixes, no new features. Changes
to the docs probably aren't worth printing out a new copy.

The biggest fixes are:
 - oou should work with meta-. to let you find the source to oou fns.
 - name conflicts with the MCL resource fns have been resolved. You
   may have encountered these if you tried to use the balloon help
   stuff with oou loaded.
You should definitely read the version history in the docs folder,
resolving the 2 name conflicts required un-exporting 2 oou fns. So
if you were using those 2 fns you will need to fix your code.

It will be the last version created with the support of ILS as I'm
leaving for a different job (still Mac programming)

I will continue to support oou myself. The docs have been updated
to contain my home address and phone, engber@ils.nwu.edu should
remain a valid way to reach me electronically.

-ME
From: tcasasent@diamond.kbsi.com
Newsgroups: comp.lang.lisp.mcl
Subject: Apple Events
Date: 17 Dec 92 22:22:50 GMT
Reply-To: tcasasent@diamond.kbsi.com
Organization: Knowledge Based Systems, Inc.

We're having some difficulty implementing Apple Event support in MCL 2.0p1.  

1. Of the four events only Quit Application appears to work correctly.

2.	Open Application appears to work insofar as double-clicking on the 
application or one of the application's documents will open the application.  
However, the document is not opened.

3.	Open Document only works if the application is already open.

4.	We haven't looked at Print Document yet but suspect that it will act as 
in 3 above.

The Open Application method does not appear to be called upon startup.  (We 
inserted with-file statements as part of the debugging and this events file 
never gets written.)

The two questions I have are:

1.	Do you know of any reasons and solutions for this behavior?

and

2.	Are there any _documented_ methods for tracing whether/what Apple Events 
are called?  I've been unable to find any MacBugs documentation for the 
Apple Events hooks from the developers' CD-ROM.

Thanks,

	-Tod
tcasasent@kbsi.com
========================================================================
Jean  - Henna neko da ne...              Jean  - That's a strange cat...
Nadia - Raion yo!                        Nadia - He's a lion!
========================================================================
Behold Excaliber! The Sword of Power! Forged when the world was young
and bird and beast and flower were one with man and Death was but
a dream.     - Merlin
========================================================================
C++ == --CLOS
========================================================================
The opinions and statements herein expressed are not those of KBSI and,
if attributable to anyone, are mine.
From: mmeehan@eesof.com (Mike Meehan)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: FFT code?
Date: 18 Dec 92 23:34:03 GMT

Dave,

There is a clmath lib somewhere on one of mit's file servers.
Ive grep'ed my mail archives but cant find where Straz told me about
this stuff...If you cant find it, lemme know and ill put it up on our
ftp site...

Its probably on the CD, I dont think its on cambridge.apple.com, but
maybe it should?


ttfn, Mike
Newsgroups: comp.lang.lisp.mcl
From: bright@ENH.NIST.GOV
Newsgroups: comp.lang.lisp.mcl
Subject: timer functions
Date: 15 Dec 92 13:48:41 GMT

Greetings!
  The time function is nifty:  (time (stuff to be timed)), but it sends its
info to *standard-output*.  Is there a way to get the output in machine
useable form?  Or, are there functions out there that give the same sort of
nifty info (time in secs, GC and multitasking times that can be subtracted
off, memory allocated)?  I know about decoding get-internal-real-time, but
the the time function is very useful as is and it has all the info in one
place.

Thanks
-- Dave
David S. Bright                        bright@enh.nist.gov  
Microanalysis Research Group                                   
National Institute of Standards & Technology (NIST, formerly NBS)
Gaithersburg, MD 20899                                           
USA
301-975-3911
From: bill@cambridge.apple.com (Bill St. Clair)
Newsgroups: comp.lang.lisp.mcl
Subject: Re: map-array
Date: 14 Dec 92 21:07:14 GMT

At 14:12 12/11/92 -0500, Guillaume Cartier wrote:
><---
>| Based on the Code of Bill St.Clair for faster-climits I tried to write a
>| general map-array function,
>| both a mcl specific and a portable version.
>| 
>| Then I compared this construct to mapc for sequences
>| 
>| To my surprise, the mapping an array was slower than mapping over a list.
>| Am I missing something ?
>--->
>
>Yes!
>
>It is true that access to a specific element of an array in generaly faster
>than access to a specific element of a list. But, in this case, we are not accessing elements individualy but mapping over the whole structure.
>
>Mapping over an array involves accessing every element individualy (each
>time having to do at least a multiplication and an addition) where as
>mapping over a list involves simple pointer indirections which are very
>fast.

Although what Guillaume says is true, the AREF can all be in-line
if you pass an array that uses that part of your map-array-ccl macro.
You made an array with an element type of FIXNUM, which MCL upgrades to
(signed-byte 32). This is NOT a simple-vector, so you end up going
out of line for the AREF. If you let the element type default to T,
you get faster performance (I timed the following on a IIci):

(defun initialize (n)
  (setq *long-sequence* nil)
  ; **** Note the element type default to T ****
  (setq *array-like-sequence* (make-array (list n n)))
  (dotimes (y n)
    (dotimes (x n)
      (let ((wert (random 2000)))
        (push wert *long-sequence*)
        (setf (aref *array-like-sequence* y x) wert))))
 )

#|
(initialize 200)

(without-interrupts (time (test-sequence)))
(TEST-SEQUENCE) took 1353 milliseconds (1.353 seconds) to run.
Of that, 1 milliseconds (0.001 seconds) were spent in The Cooperative Multitasking Experience.
 32 bytes of memory allocated.
(MIN 0 MAX 1999)

(without-interrupts (time (TEST-ARRAY-CCL)))
(TEST-ARRAY-CCL) took 1331 milliseconds (1.331 seconds) to run.
 32 bytes of memory allocated.
(MIN 0 MAX 1999)

(without-interrupts (time (test-array-portable)))
(TEST-ARRAY-PORTABLE) took 1894 milliseconds (1.894 seconds) to run.
 64 bytes of memory allocated.
(MIN 0 MAX 1999)
|#