(FILECREATED "10-Mar-86 16:45:17" {ERIS}<LISPCORE>GC>WOBBLE.;2
 1109   

      changes to:  (VARS WOBBLECOMS)

      previous date: "27-Feb-86 16:52:26" {ERIS}<LISPCORE>GC>WOBBLE.;1)


(* Copyright (c) 1986 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT WOBBLECOMS)

(RPAQQ WOBBLECOMS
 [(RECORDS WHATEVER)
                       (FNS WOBBLE WOBBLE-TIME)
                       (P (SETQ GLOBAL-FOO (CREATE WHATEVER])
[DECLARE: EVAL@COMPILE 

(RECORD WHATEVER
 (FOO))
]
(DEFINEQ

(WOBBLE

  [LAMBDA (N)
    (for
 I to
 N do
 (replace
 FOO of
 GLOBAL-FOO with
 MYCONS)
                              (replace
 FOO of
 GLOBAL-FOO with
 NIL])

(WOBBLE-TIME

  [LAMBDA NIL
    (SETQ MYCONS (CONS))
    (SETQ GLOBAL-FOO (CREATE
 WHATEVER))
    (PRINTOUT T "WITHOUT BIG REFCNT" T)
    (TIMEALL (WOBBLE
 10000))
    (SETQ MYLIST (for
 I to
 70 collect
 MYCONS))
    (PRINTOUT T "WITH BIG REFCNT" T)
    (TIMEALL (WOBBLE
 10000])
)
(SETQ GLOBAL-FOO (CREATE WHATEVER))
(PUTPROPS WOBBLE COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (493 996 (WOBBLE 503 . 691) (WOBBLE-TIME 693 . 994)))))
STOP