Freebsd Fortunes 2

* * * * * THIS TERMINAL IS IN USE * * * * *

   It is either through the influence of narcotic potions, of which all
primitive peoples and races speak in hymns, or through the powerful approach
of spring, penetrating with joy all of nature, that those Dionysian stirrings
arise, which in their intensification lead the individual to forget himself
completely. ... Not only does the bond between man and man come to be forged
once again by the magic of the Dionysian rite, but alienated, hostile, or
subjugated nature again celebrates her reconciliation with her prodigal son,
man.
                -- Fred Nietzsche, The Birth of Tragedy

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

Set the variable $LOSERS to all the people that you think are losers.  This
will cause all said losers to have the variable $PEOPLE-WHO-THINK-I-AM-A-LOSER
updated in their .login file.  Should you attempt to execute a job on a
machine with poor response time and a machine on your local net is currently
populated by losers, that machine will be freed up for your job through a
cold boot process.

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

A new system, the CIRCULATORY system, has been added.

The long-experimental CIRCULATORY system has been released to users.  The
Lisp Machine uses Type B fluid, the L machine uses Type A fluid.  When the
switch to Common Lisp occurs both machines will, of course, be Type O.
Please check fluid level by using the DIP stick which is located in the
back of VMI monitors.  Unchecked low fluid levels can cause poor paging
performance.

===  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: