Freebsd Fortunes 2

===  ALL USERS PLEASE NOTE  ========================

Bug reports now amount to an average of 12,853 per day.  Unfortunately,
this is only a small fraction [ < 1% ] of the mail volume we receive.  In
order that we may more expeditiously deal with these valuable messages,
please communicate them by one of the following paths:

        ARPA:  WastebasketSLMHQ.ARPA
        UUCP:  [berkeley, seismo, harpo]!fubar!thekid!slmhq!wastebasket
        Non-network sites:  Federal Express to:
                Wastebasket
                Room NE43-926
                Copernicus, The Moon, 12345-6789
        For that personal contact feeling call 1-415-642-4948; our trained
        operators are on call 24 hours a day.  VISA/MC accepted.*

* Our very rich lawyers have assured us that we are not
  responsible for any errors or advice given over the phone.

===  ALL USERS PLEASE NOTE  ========================

CAR and CDR now return extra values.

The function CAR now returns two values.  Since it has to go to the trouble
to figure out if the object is carcdr-able anyway, we figured you might as
well get both halves at once.  For example, the following code shows how to
destructure a cons (SOME-CONS) into its two slots (THE-CAR and THE-CDR):

        (MULTIPLE-VALUE-BIND (THE-CAR THE-CDR) (CAR SOME-CONS) ...)

For symmetry with CAR, CDR returns a second value which is the CAR of the
object.  In a related change, the functions MAKE-ARRAY and CONS have been
fixed so they don't allocate any storage except on the stack.  This should
hopefully help people who don't like using the garbage collector because
it cold boots the machine so often.

===  ALL USERS PLEASE NOTE  ========================

Compiler optimizations have been made to macro expand LET into a WITHOUT-
INTERRUPTS special form so that it can PUSH things into a stack in the
LET-OPTIMIZATION area, SETQ the variables and then POP them back when it's
done.  Don't worry about this unless you use multiprocessing.
Note that LET *could* have been defined by:

        (LET ((LET '`(LET ((LET ',LET))
                        ,LET)))
        `(LET ((LET ',LET))
                ,LET))

This is believed to speed up execution by as much as a factor of 1.01 or
3.50 depending on whether you believe our friendly marketing representatives.
This code was written by a new programmer here (we snatched him away from
Itty Bitti Machines where we was writting COUGHBOL code) so to give him
confidence we trusted his vows of "it works pretty well" and installed it.

===  ALL USERS PLEASE NOTE  ========================

JCL support as alternative to system menu.

In our continuing effort to support languages other than LISP on the CADDR,
we have developed an OS/360-compatible JCL.  This can be used as an
alternative to the standard system menu.  Type System J to get to a JCL
interactive read-execute-diagnose loop window.  [Note that for 360
compatibility, all input lines are truncated to 80 characters.]  This
window also maintains a mouse-sensitive display of critical job parameters
such as dataset allocation, core allocation, channels, etc.  When a JCL
syntax error is detected or your job ABENDs, the window-oriented JCL
debugger is entered.  The JCL debugger displays appropriate OS/360 error
messages (such as IEC703, "disk error") and allows you to dequeue your job.

===  ALL USERS PLEASE NOTE  ========================

The garbage collector now works.  In addition a new, experimental garbage
collection algorithm has been installed.  With SI:

DSK-GC-QLX-BITS set to 17,
(NOT the default) the old garbage collection algorithm remains in force; when
virtual storage is filled, the machine cold boots itself.  With SI:

DSK-GC-
QLX-BITS set to 23, the new garbage collector is enabled.  Unlike most garbage
collectors, the new gc starts its mark phase from the mind of the user, rather
than from the obarray.  This allows the garbage collection of significantly
more Qs.  As the garbage collector runs, it may ask you something like "Do you
remember what SI:RDTBL-TRANS does?", and if you can't give a reasonable answer
in thirty seconds, the symbol becomes a candidate for GCing.  The variable
SI:

GC-QLX-LUSER-TM governs how long the GC waits before timing out the user.

===  ALL USERS PLEASE NOTE  ========================

There has been some confusion concerning MAPCAR.
        (DEFUN MAPCAR (&FUNCTIONAL FCN &EVAL &REST LISTS)
                (PROG (V P LP)
                (SETQ P (LOCF V))
        L       (SETQ LP LISTS)
                (

START-FUNCTION-CALL FCN T (LENGTH LISTS) NIL)
        L1      (OR LP (GO L2))
                (AND (NULL (CAR LP)) (RETURN V))
                (