; -*- Mode:TEXT -*-
; This is the UNFASL for IT: KEITH.NETWORKS; DEFOBEDIT.QFASL#31


(SYSTEM:FASL-OP-FILE-PROPERTY-LIST
  (SYSTEM:FASL-OP-LIST [12] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-STRING "")
      (SYSTEM:FASL-OP-STRING "COMPILE-DATA")
      <:COMPILE-DATA>)
    (SYSTEM:FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-STRING "keith")
      (SYSTEM:FASL-OP-STRING "Cousin It")
      (SYSTEM:FASL-OP-FIXED 2760451702)
      (SYSTEM:FASL-OP-FIXED 110)
      (SYSTEM:FASL-OP-FIXED 232)
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-STRING "COMPILER")
          (SYSTEM:FASL-OP-STRING "NEW-DESTINATIONS")
          <COMPILER:NEW-DESTINATIONS>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-STRING "GLOBAL")
          (SYSTEM:FASL-OP-STRING "T")
          <GLOBAL:T>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "SITE")
          <:SITE>)
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-INDEX [32] {""})
          (SYSTEM:FASL-OP-STRING "LOWELL")
          <:LOWELL>)
       => (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LOWELL>))
     => ("keith" "Cousin It" 2760451702 110 232 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LOWELL>)))
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "QFASL-SOURCE-FILE-UNIQUE-ID")
      <:QFASL-SOURCE-FILE-UNIQUE-ID>)
    (SYSTEM:FASL-OP-EVAL1
      (SYSTEM:FASL-OP-LIST [7] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-PACKAGE-SYMBOL
          (SYSTEM:FASL-OP-STRING "FS")
          (SYSTEM:FASL-OP-STRING "MAKE-FASLOAD-PATHNAME")
          <FS:MAKE-FASLOAD-PATHNAME>)
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-PACKAGE-SYMBOL
            (SYSTEM:FASL-OP-INDEX [43] {"GLOBAL"})
            (SYSTEM:FASL-OP-STRING "QUOTE")
            <GLOBAL:QUOTE>)
          (SYSTEM:FASL-OP-STRING "IT")
         => (<GLOBAL:QUOTE> "IT"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-STRING "DSK")
         => (<GLOBAL:QUOTE> "DSK"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-STRING "KEITH")
            (SYSTEM:FASL-OP-STRING "NETWORKS")
           => ("KEITH" "NETWORKS"))
         => (<GLOBAL:QUOTE> ("KEITH" "NETWORKS")))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-STRING "DEFOBEDIT")
         => (<GLOBAL:QUOTE> "DEFOBEDIT"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-STRING "LISP")
         => (<GLOBAL:QUOTE> "LISP"))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
          (SYSTEM:FASL-OP-FIXED 31)
         => (<GLOBAL:QUOTE> 31))
       => (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "IT") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("KEITH" "NETWORKS")) (<GLOBAL:QUOTE> "DEFOBEDIT") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 31)))
      (EVAL '(<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "IT") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("KEITH" "NETWORKS")) (<GLOBAL:QUOTE> "DEFOBEDIT") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 31))))
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "BASE")
      <:BASE>)
    (SYSTEM:FASL-OP-FIXED 10)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "READTABLE")
      <:READTABLE>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "CL")
      <:CL>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "FONTS")
      <:FONTS>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "MEDFNT")
        <:MEDFNT>)
      (SYSTEM:FASL-OP-PACKAGE-SYMBOL
        (SYSTEM:FASL-OP-INDEX [32] {""})
        (SYSTEM:FASL-OP-STRING "MEDFNB")
        <:MEDFNB>)
     => (<:MEDFNT> <:MEDFNB>))
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "PACKAGE")
      <:PACKAGE>)
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [32] {""})
      (SYSTEM:FASL-OP-STRING "USER")
      <:USER>)
   => (<:COMPILE-DATA> ("keith" "Cousin It" 2760451702 110 232 (<COMPILER:NEW-DESTINATIONS> <GLOBAL:T> <:SITE> <:LOWELL>)) <:QFASL-SOURCE-FILE-UNIQUE-ID> (SI::**EVAL** (QUOTE (<FS:MAKE-FASLOAD-PATHNAME> (<GLOBAL:QUOTE> "IT") (<GLOBAL:QUOTE> "DSK") (<GLOBAL:QUOTE> ("KEITH" "NETWORKS")) (<GLOBAL:QUOTE> "DEFOBEDIT") (<GLOBAL:QUOTE> "LISP") (<GLOBAL:QUOTE> 31)))) <:BASE> 10 <:READTABLE> <:CL> <:FONTS> (<:MEDFNT> <:MEDFNB>) <:PACKAGE> <:USER>)))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <IN-PACKAGE>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <USER>)
     => (<GLOBAL:QUOTE> <USER>))
   => (<IN-PACKAGE> (<GLOBAL:QUOTE> <USER>)))
  (EVAL '(<IN-PACKAGE> (<GLOBAL:QUOTE> <USER>))))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <USE-PACKAGE>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <OBJ>)
     => (<GLOBAL:QUOTE> <OBJ>))
   => (<USE-PACKAGE> (<GLOBAL:QUOTE> <OBJ>)))
  (EVAL '(<USE-PACKAGE> (<GLOBAL:QUOTE> <OBJ>))))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-STRING "SI")
      (SYSTEM:FASL-OP-STRING "DEFVAR-1")
      <SI:DEFVAR-1>)
    (SYSTEM:FASL-OP-SYMBOL <EDITABLE-THING>)
   => (<SI:DEFVAR-1> <EDITABLE-THING>))
  (EVAL '(<SI:DEFVAR-1> <EDITABLE-THING>)))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-STRING "OBJ")
      (SYSTEM:FASL-OP-STRING "%DEFKIND")
      <OBJ:%DEFKIND>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [107] {<EDITABLE-THING>})
     => (<GLOBAL:QUOTE> <EDITABLE-THING>))
    (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-SYMBOL <MAPCAR>)
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-SYMBOL <FUNCTION>)
        (SYSTEM:FASL-OP-SYMBOL <SYMBOL-VALUE>)
       => (<FUNCTION> <SYMBOL-VALUE>))
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
        (SYSTEM:FASL-OP-SYMBOL <NIL>)
       => (<GLOBAL:QUOTE> <NIL>))
     => (<MAPCAR> (<FUNCTION> <SYMBOL-VALUE>) (<GLOBAL:QUOTE> <NIL>)))
   => (<OBJ:%DEFKIND> (<GLOBAL:QUOTE> <EDITABLE-THING>) (<MAPCAR> (<FUNCTION> <SYMBOL-VALUE>) (<GLOBAL:QUOTE> <NIL>))))
  (EVAL '(<OBJ:%DEFKIND> (<GLOBAL:QUOTE> <EDITABLE-THING>) (<MAPCAR> (<FUNCTION> <SYMBOL-VALUE>) (<GLOBAL:QUOTE> <NIL>)))))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [110] {"OBJ"})
      (SYSTEM:FASL-OP-STRING "DEFINE-CLASSVARS")
      <OBJ:DEFINE-CLASSVARS>)
    (SYSTEM:FASL-OP-INDEX [107] {<EDITABLE-THING>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-SYMBOL <EDITLIST>)
        (SYSTEM:FASL-OP-SYMBOL <EDITLABEL>)
       => (<EDITLIST> <EDITLABEL>))
     => (<GLOBAL:QUOTE> (<EDITLIST> <EDITLABEL>)))
   => (<OBJ:DEFINE-CLASSVARS> <EDITABLE-THING> (<GLOBAL:QUOTE> (<EDITLIST> <EDITLABEL>))))
  (EVAL '(<OBJ:DEFINE-CLASSVARS> <EDITABLE-THING> (<GLOBAL:QUOTE> (<EDITLIST> <EDITLABEL>)))))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [3] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [110] {"OBJ"})
      (SYSTEM:FASL-OP-STRING "DEFINE-INSTANCEVARS")
      <OBJ:DEFINE-INSTANCEVARS>)
    (SYSTEM:FASL-OP-INDEX [107] {<EDITABLE-THING>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-SYMBOL <EDIT-FUNC>)
          (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
            (SYSTEM:FASL-OP-INDEX [115] {<FUNCTION>})
            (SYSTEM:FASL-OP-SYMBOL <IDENTITY>)
           => (<FUNCTION> <IDENTITY>))
         => (<EDIT-FUNC> (<FUNCTION> <IDENTITY>)))
       => ((<EDIT-FUNC> (<FUNCTION> <IDENTITY>))))
     => (<GLOBAL:QUOTE> ((<EDIT-FUNC> (<FUNCTION> <IDENTITY>)))))
   => (<OBJ:DEFINE-INSTANCEVARS> <EDITABLE-THING> (<GLOBAL:QUOTE> ((<EDIT-FUNC> (<FUNCTION> <IDENTITY>))))))
  (EVAL '(<OBJ:DEFINE-INSTANCEVARS> <EDITABLE-THING> (<GLOBAL:QUOTE> ((<EDIT-FUNC> (<FUNCTION> <IDENTITY>)))))))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-SYMBOL <RECORD-SOURCE-FILE-NAME>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <EDITABLE>)
     => (<GLOBAL:QUOTE> <EDITABLE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <DEFOBFUN>)
     => (<GLOBAL:QUOTE> <DEFOBFUN>))
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EDITABLE>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EDITABLE>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>)))
(SYSTEM:FASL-OP-FRAME
<EDITABLE>
 14 MOVE D-RETURN 'NIL
)
(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [158] {#<DTP-FEF-POINTER <EDITABLE> 26623354>}
  (SYSTEM:FASL-OP-INDEX [142] {<EDITABLE>}))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [110] {"OBJ"})
      (SYSTEM:FASL-OP-STRING "DEFOBFUN-INSTALL")
      <OBJ:DEFOBFUN-INSTALL>)
    (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [142] {<EDITABLE>})
     => (<GLOBAL:QUOTE> <EDITABLE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <SHADOWED-EDITABLE>)
     => (<GLOBAL:QUOTE> <SHADOWED-EDITABLE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [115] {<FUNCTION>})
      (SYSTEM:FASL-OP-INDEX [142] {<EDITABLE>})
     => (<FUNCTION> <EDITABLE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<OBJ:DEFOBFUN-INSTALL> <NIL> (<GLOBAL:QUOTE> <EDITABLE>) (<GLOBAL:QUOTE> <SHADOWED-EDITABLE>) (<FUNCTION> <EDITABLE>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<OBJ:DEFOBFUN-INSTALL> <NIL> (<GLOBAL:QUOTE> <EDITABLE>) (<GLOBAL:QUOTE> <SHADOWED-EDITABLE>) (<FUNCTION> <EDITABLE>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>))))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [141] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <EDITABLE-LABEL>)
     => (<GLOBAL:QUOTE> <EDITABLE-LABEL>))
    (SYSTEM:FASL-OP-INDEX [145] {(<GLOBAL:QUOTE> <DEFOBFUN>)})
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EDITABLE-LABEL>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EDITABLE-LABEL>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>)))
(SYSTEM:FASL-OP-FRAME
<OBF:|(USER:EDITABLE-LABEL USER:EDITABLE-THING)|>
 24 CALL D-RETURN FEF|6  ;<STRING-APPEND>
 25 PUSH FEF|7  ;'"Edit "
 26 CALL D-PDL FEF|8  ;<OBF:|Get-sym-val OBJ:CLASS-NAME|>
 27 MOVE D-LAST FEF|9  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-VAL-LINK> (<GLOBAL:QUOTE> <CLASS-NAME>))))
 28 MOVE D-LAST FEF|10  ;'" class object"
)
(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [201] {#<DTP-FEF-POINTER <OBF:|(USER:EDITABLE-LABEL USER:EDITABLE-THING)|> 26624470>}
  (SYSTEM:FASL-OP-INDEX [178] {<OBF:|(USER:EDITABLE-LABEL USER:EDITABLE-THING)|>}))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [160] {<OBJ:DEFOBFUN-INSTALL>})
    (SYSTEM:FASL-OP-INDEX [107] {<EDITABLE-THING>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [170] {<EDITABLE-LABEL>})
     => (<GLOBAL:QUOTE> <EDITABLE-LABEL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <SHADOWED-EDITABLE-LABEL>)
     => (<GLOBAL:QUOTE> <SHADOWED-EDITABLE-LABEL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [115] {<FUNCTION>})
      (SYSTEM:FASL-OP-INDEX [178] {<OBF:|(USER:EDITABLE-LABEL USER:EDITABLE-THING)|>})
     => (<FUNCTION> <OBF:|(USER:EDITABLE-LABEL USER:EDITABLE-THING)|>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [188] {<CLASS-NAME>})
       => (<CLASS-NAME>))
     => (<GLOBAL:QUOTE> (<CLASS-NAME>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<OBJ:DEFOBFUN-INSTALL> <EDITABLE-THING> (<GLOBAL:QUOTE> <EDITABLE-LABEL>) (<GLOBAL:QUOTE> <SHADOWED-EDITABLE-LABEL>) (<FUNCTION> <OBF:|(USER:EDITABLE-LABEL USER:EDITABLE-THING)|>) (<GLOBAL:QUOTE> (<CLASS-NAME>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<OBJ:DEFOBFUN-INSTALL> <EDITABLE-THING> (<GLOBAL:QUOTE> <EDITABLE-LABEL>) (<GLOBAL:QUOTE> <SHADOWED-EDITABLE-LABEL>) (<FUNCTION> <OBF:|(USER:EDITABLE-LABEL USER:EDITABLE-THING)|>) (<GLOBAL:QUOTE> (<CLASS-NAME>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>))))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [141] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [142] {<EDITABLE>})
     => (<GLOBAL:QUOTE> <EDITABLE>))
    (SYSTEM:FASL-OP-INDEX [145] {(<GLOBAL:QUOTE> <DEFOBFUN>)})
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EDITABLE>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EDITABLE>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>)))
(SYSTEM:FASL-OP-FRAME
<OBF:|(USER:EDITABLE USER:EDITABLE-THING)|>
 30 CALL D-IGNORE FEF|6  ;<HAVE>
 31 PUSH FEF|7  ;'<EDITLIST>
 32 CALL D-LAST FEF|8  ;<REMOVE-DUPLICATES>
 33 PUSH ARG|0
 34 PUSH FEF|9  ;'<:TEST>
 35 PUSH FEF|10  ;<EQUAL>
 36 PUSH FEF|11  ;'<:FROM-END>
 37 MOVE D-LAST 'T
 38 CALL D-RETURN FEF|12  ;<OBF:|Get-sym-val USER:EDITLIST|>
 39 MOVE D-LAST FEF|13  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-VAL-LINK> (<GLOBAL:QUOTE> <EDITLIST>))))
)
(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [244] {#<DTP-FEF-POINTER <OBF:|(USER:EDITABLE USER:EDITABLE-THING)|> 26625751>}
  (SYSTEM:FASL-OP-INDEX [218] {<OBF:|(USER:EDITABLE USER:EDITABLE-THING)|>}))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [160] {<OBJ:DEFOBFUN-INSTALL>})
    (SYSTEM:FASL-OP-INDEX [107] {<EDITABLE-THING>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [142] {<EDITABLE>})
     => (<GLOBAL:QUOTE> <EDITABLE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [162] {<SHADOWED-EDITABLE>})
     => (<GLOBAL:QUOTE> <SHADOWED-EDITABLE>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [115] {<FUNCTION>})
      (SYSTEM:FASL-OP-INDEX [218] {<OBF:|(USER:EDITABLE USER:EDITABLE-THING)|>})
     => (<FUNCTION> <OBF:|(USER:EDITABLE USER:EDITABLE-THING)|>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [125] {<EDITLIST>})
       => (<EDITLIST>))
     => (<GLOBAL:QUOTE> (<EDITLIST>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<OBJ:DEFOBFUN-INSTALL> <EDITABLE-THING> (<GLOBAL:QUOTE> <EDITABLE>) (<GLOBAL:QUOTE> <SHADOWED-EDITABLE>) (<FUNCTION> <OBF:|(USER:EDITABLE USER:EDITABLE-THING)|>) (<GLOBAL:QUOTE> (<EDITLIST>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<OBJ:DEFOBFUN-INSTALL> <EDITABLE-THING> (<GLOBAL:QUOTE> <EDITABLE>) (<GLOBAL:QUOTE> <SHADOWED-EDITABLE>) (<FUNCTION> <OBF:|(USER:EDITABLE USER:EDITABLE-THING)|>) (<GLOBAL:QUOTE> (<EDITLIST>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>))))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [141] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <EXIST>)
     => (<GLOBAL:QUOTE> <EXIST>))
    (SYSTEM:FASL-OP-INDEX [145] {(<GLOBAL:QUOTE> <DEFOBFUN>)})
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EXIST>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EXIST>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>)))
(SYSTEM:FASL-OP-FRAME
<OBF:|(OBJ:EXIST USER:EDITABLE-THING)|>
 46 MOVE D-IGNORE LOCAL|0
 47 BR-NIL 53
 48 CALL D-IGNORE FEF|7  ;<SYSTEM:STORE-KEYWORD-ARG-VALUES>
 49 PUSH-ADDRESS LOCAL|1
 50 PUSH LOCAL|0
 51 PUSH FEF|8  ;'(<:LABEL>)
 52 MOVE D-LAST 'NIL
 53 PUSH FEF|6  ;<OBJ:*SHADOWS>
 54 BR-NOT-NIL-POP 57
 55 CALL D-PDL FEF|9  ;<OBF:|Get-sym-sdw OBJ:EXIST|>
 56 MOVE D-LAST FEF|10  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-SDW-LINK> (<GLOBAL:QUOTE> <EXIST>))))
 57 POP LOCAL|2
 58 CALL D-IGNORE FEF|11  ;<OBJ:APPLY-SHADOWS>
 59 PUSH LOCAL|2
 60 MOVE D-LAST LOCAL|0
 61 CALL D-PDL FEF|12  ;<OBF:|Get-sym-fcn USER:EDITABLE|>
 62 MOVE D-LAST FEF|13  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-FCN-LINK> (<GLOBAL:QUOTE> <EDITABLE>))))
 63 CALL0 D-IGNORE PDL-POP
 64 CALL D-IGNORE FEF|14  ;<HAVE>
 65 PUSH FEF|15  ;'<EDITLABEL>
 66 PUSH LOCAL|1
 67 BR-NOT-NIL-POP 74
 68 CALL D-PDL FEF|16  ;<OBF:|Get-sym-val USER:EDITLABEL|>
 69 MOVE D-LAST FEF|17  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-VAL-LINK> (<GLOBAL:QUOTE> <EDITLABEL>))))
 70 BR-NOT-NIL-POP 74
 71 CALL D-PDL FEF|18  ;<OBF:|Get-sym-fcn USER:EDITABLE-LABEL|>
 72 MOVE D-LAST FEF|19  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-FCN-LINK> (<GLOBAL:QUOTE> <EDITABLE-LABEL>))))
 73 CALL0 D-PDL PDL-POP
 74 MOVE D-LAST PDL-POP
 75 CALL D-PDL FEF|20  ;<OBF:|Get-sym-fcn USER:EDITFUNC|>
 76 MOVE D-LAST FEF|21  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-FCN-LINK> (<GLOBAL:QUOTE> <EDITFUNC>))))
 77 CALL0 D-RETURN PDL-POP
)
(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [325] {#<DTP-FEF-POINTER <OBF:|(OBJ:EXIST USER:EDITABLE-THING)|> 26627271>}
  (SYSTEM:FASL-OP-INDEX [261] {<OBF:|(OBJ:EXIST USER:EDITABLE-THING)|>}))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [160] {<OBJ:DEFOBFUN-INSTALL>})
    (SYSTEM:FASL-OP-INDEX [107] {<EDITABLE-THING>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [254] {<EXIST>})
     => (<GLOBAL:QUOTE> <EXIST>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <SHADOWED-EXIST>)
     => (<GLOBAL:QUOTE> <SHADOWED-EXIST>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [115] {<FUNCTION>})
      (SYSTEM:FASL-OP-INDEX [261] {<OBF:|(OBJ:EXIST USER:EDITABLE-THING)|>})
     => (<FUNCTION> <OBF:|(OBJ:EXIST USER:EDITABLE-THING)|>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [126] {<EDITLABEL>})
       => (<EDITLABEL>))
     => (<GLOBAL:QUOTE> (<EDITLABEL>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [300] {<EDITFUNC>})
        (SYSTEM:FASL-OP-INDEX [170] {<EDITABLE-LABEL>})
        (SYSTEM:FASL-OP-INDEX [142] {<EDITABLE>})
        (SYSTEM:FASL-OP-INDEX [327] {<SHADOWED-EXIST>})
       => (<EDITFUNC> <EDITABLE-LABEL> <EDITABLE> <SHADOWED-EXIST>))
     => (<GLOBAL:QUOTE> (<EDITFUNC> <EDITABLE-LABEL> <EDITABLE> <SHADOWED-EXIST>)))
   => (<OBJ:DEFOBFUN-INSTALL> <EDITABLE-THING> (<GLOBAL:QUOTE> <EXIST>) (<GLOBAL:QUOTE> <SHADOWED-EXIST>) (<FUNCTION> <OBF:|(OBJ:EXIST USER:EDITABLE-THING)|>) (<GLOBAL:QUOTE> (<EDITLABEL>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> (<EDITFUNC> <EDITABLE-LABEL> <EDITABLE> <SHADOWED-EXIST>))))
  (EVAL '(<OBJ:DEFOBFUN-INSTALL> <EDITABLE-THING> (<GLOBAL:QUOTE> <EXIST>) (<GLOBAL:QUOTE> <SHADOWED-EXIST>) (<FUNCTION> <OBF:|(OBJ:EXIST USER:EDITABLE-THING)|>) (<GLOBAL:QUOTE> (<EDITLABEL>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> (<EDITFUNC> <EDITABLE-LABEL> <EDITABLE> <SHADOWED-EXIST>)))))
(SYSTEM:FASL-OP-FRAME
<DEFOBEDIT>
 32 PUSH ARG|0
 33 (MISC) LENGTH D-PDL
 34 < '2
 35 BR-NOT-NIL 40
 36 PUSH ARG|0
 37 (MISC) LENGTH D-PDL
 38 > '2
 39 BR-NIL 44
 40 CALL D-IGNORE FEF|6  ;<SI:MACRO-REPORT-ARGS-ERROR>
 41 PUSH ARG|0
 42 PUSH-NUMBER 1
 43 MOVE D-LAST '1
 44 CADR D-PDL ARG|0
 45 POP LOCAL|0
 46 PUSH FEF|7  ;'<DEFOBFUN>
 47 PUSH FEF|8  ;'<EDITABLE>
 48 PUSH LOCAL|0
 49 PUSH-NUMBER 2
 50 (MISC) %INTERNAL-LIST D-PDL
 51 PUSH FEF|9  ;'(<&OPTIONAL> <EDIT>)
 52 PUSH FEF|10  ;'<SHADOWED-EDITABLE>
 53 PUSH FEF|11  ;'<APPEND>
 54 PUSH FEF|12  ;'<ASK>
 55 PUSH LOCAL|0
 56 PUSH FEF|13  ;'(<EDITLIST>)
 57 PUSH-NUMBER 3
 58 (MISC) %INTERNAL-LIST* D-PDL
 59 PUSH FEF|14  ;'(<EDIT>)
 60 PUSH-NUMBER 3
 61 (MISC) %INTERNAL-LIST* D-PDL
 62 PUSH-NUMBER 2
 63 (MISC) %INTERNAL-LIST D-PDL
 64 PUSH-NUMBER 4
 65 (MISC) %INTERNAL-LIST D-RETURN
)
(SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA (dotify)
  (SYSTEM:FASL-OP-SYMBOL <MACRO>)
  (SYSTEM:FASL-OP-INDEX [380] {#<DTP-FEF-POINTER <DEFOBEDIT> 26631251>})
 => (<MACRO> . #<DTP-FEF-POINTER <DEFOBEDIT> 26631251>))
(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [382] {(<MACRO> . #<DTP-FEF-POINTER <DEFOBEDIT> 26631251>)}
  (SYSTEM:FASL-OP-INDEX [339] {<DEFOBEDIT>}))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [141] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [300] {<EDITFUNC>})
     => (<GLOBAL:QUOTE> <EDITFUNC>))
    (SYSTEM:FASL-OP-INDEX [145] {(<GLOBAL:QUOTE> <DEFOBFUN>)})
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EDITFUNC>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EDITFUNC>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>)))
(SYSTEM:FASL-OP-FRAME
<OBF:|(USER:EDITFUNC USER:EDITABLE-THING)|>
 76 CALL D-PDL FEF|11  ;<OBF:|Get-sym-fcn LISP:REMOVE|>
 77 MOVE D-LAST FEF|12  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-FCN-LINK> (<GLOBAL:QUOTE> <LISP:REMOVE>))))
 78 CALL D-PDL PDL-POP
 79 PUSH 'NIL
 80 PUSH-ADDRESS LOCAL|0
 81 CALL0 D-PDL FEF|13  ;<CURRENT-OBJ>
 82 BIND-NIL FEF|10  ;<OBJ:*SDW-CLASS-DISP>
 83 BIND-NIL FEF|9  ;<OBJ:*FCN-CLASS-DISP>
 84 BIND-NIL FEF|8  ;<OBJ:*VAL-CLASS-DISP>
 85 BIND-NIL FEF|7  ;<OBJ:*INSTANCE-ENVS>
 86 BIND-NIL FEF|6  ;<OBJ:*OBJECT>
 87 POP LOCAL|1
 88 CALL D-IGNORE FEF|14  ;<OBJ:SET-OBJ>
 89 MOVE D-LAST LOCAL|1
 90 CALL D-PDL FEF|15  ;<OBF:|Get-sym-val USER:EDITLIST|>
 91 MOVE D-LAST FEF|16  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-VAL-LINK> (<GLOBAL:QUOTE> <EDITLIST>))))
 92 (MISC) UNBIND 5 bindings 
 93 POP LOCAL|3
 94 POP LOCAL|2
 95 BR 103
 96 PUSH LOCAL|2
 97 CAR D-PDL LOCAL|3
 98 (MISC) CAR-SAFE D-PDL
 99 (MISC) NCONS D-PDL
100 MOVEM LOCAL|2
101 (MISC) RPLACD D-IGNORE
102 SETE-CDR LOCAL|3
103 MOVE D-IGNORE LOCAL|3
104 BR-NOT-NIL 96
105 MOVE D-LAST LOCAL|0
106 CALL D-PDL FEF|17  ;<INTERN>
107 CALL0 D-LAST FEF|18  ;<GENSYM>
108 POP LOCAL|5
109 POP LOCAL|4
110 CALL D-IGNORE FEF|19  ;<EVAL>
111 PUSH FEF|20  ;'<DEFOBFUN>
112 PUSH LOCAL|5
113 PUSH FEF|21  ;'(<EDITABLE-THING>)
114 PUSH-NUMBER 2
115 (MISC) %INTERNAL-LIST* D-PDL
116 PUSH 'NIL
117 PUSH FEF|22  ;'<LET>
118 SET-NIL LOCAL|3
119 PUSH-ADDRESS LOCAL|3
120 PUSH LOCAL|4
121 PUSH LOCAL|4
122 POP LOCAL|2
123 POP LOCAL|0
124 POP LOCAL|6
125 BR 136
126 PUSH LOCAL|6
127 CAR D-PDL LOCAL|0
128 CAR D-PDL LOCAL|2
129 PUSH-NUMBER 2
130 (MISC) %INTERNAL-LIST D-PDL
131 (MISC) NCONS D-PDL
132 MOVEM LOCAL|6
133 (MISC) RPLACD D-IGNORE
134 SETE-CDR LOCAL|0
135 SETE-CDR LOCAL|2
136 MOVE D-IGNORE LOCAL|0
137 BR-NIL 140
138 MOVE D-IGNORE LOCAL|2
139 BR-NOT-NIL 126
140 PUSH LOCAL|3
141 PUSH FEF|23  ;'<DECLARE>
142 PUSH FEF|24  ;'<SPECIAL>
143 PUSH LOCAL|4
144 PUSH-NUMBER 2
145 (MISC) %INTERNAL-LIST* D-PDL
146 PUSH-NUMBER 2
147 (MISC) %INTERNAL-LIST D-PDL
148 PUSH FEF|25  ;'<CATCH>
149 PUSH FEF|26  ;'(<GLOBAL:QUOTE> <ABORT>)
150 PUSH FEF|27  ;'<TV:CHOOSE-VARIABLE-VALUES>
151 PUSH FEF|28  ;'<GLOBAL:QUOTE>
152 CALL D-PDL FEF|15  ;<OBF:|Get-sym-val USER:EDITLIST|>
153 MOVE D-LAST FEF|29  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-VAL-LINK> (<GLOBAL:QUOTE> <EDITLIST>))))
154 PUSH-NUMBER 2
155 (MISC) %INTERNAL-LIST D-PDL
156 PUSH FEF|30  ;'(<:LABEL> <EDITLABEL> <:MARGIN-CHOICES> (<GLOBAL:QUOTE> ("Continue" ("Abort" (<THROW> (<GLOBAL:QUOTE> <ABORT>) (<VALUES> <NIL> <:ABORT>))))))
157 PUSH-NUMBER 3
158 (MISC) %INTERNAL-LIST* D-PDL
159 SET-NIL LOCAL|6
160 PUSH-ADDRESS LOCAL|6
161 PUSH LOCAL|4
162 PUSH LOCAL|4
163 POP LOCAL|3
164 POP LOCAL|2
165 POP LOCAL|0
166 BR 189
167 PUSH LOCAL|0
168 CAR D-PDL LOCAL|2
169 CAR D-PDL LOCAL|3
170 POP LOCAL|8
171 POP LOCAL|7
172 PUSH FEF|31  ;'<ASK>
173 PUSH FEF|32  ;'(<CURRENT-OBJ>)
174 PUSH FEF|33  ;'<HAVE>
175 PUSH FEF|28  ;'<GLOBAL:QUOTE>
176 PUSH LOCAL|7
177 PUSH-NUMBER 2
178 (MISC) %INTERNAL-LIST D-PDL
179 PUSH LOCAL|8
180 PUSH-NUMBER 3
181 (MISC) %INTERNAL-LIST D-PDL
182 PUSH-NUMBER 3
183 (MISC) %INTERNAL-LIST D-PDL
184 (MISC) NCONS D-PDL
185 MOVEM LOCAL|0
186 (MISC) RPLACD D-IGNORE
187 SETE-CDR LOCAL|2
188 SETE-CDR LOCAL|3
189 MOVE D-IGNORE LOCAL|2
190 BR-NIL 193
191 MOVE D-IGNORE LOCAL|3
192 BR-NOT-NIL 167
193 PUSH LOCAL|6
194 PUSH FEF|34  ;'(<GLOBAL:T>)
195 (MISC) %INTERNAL-APPEND-2 D-PDL
196 PUSH-NUMBER 4
197 (MISC) %INTERNAL-LIST* D-PDL
198 PUSH-NUMBER 4
199 (MISC) %INTERNAL-LIST D-PDL
200 PUSH-NUMBER 4
201 (MISC) %INTERNAL-LIST D-LAST
202 CALL D-IGNORE FEF|35  ;<HAVE>
203 PUSH FEF|36  ;'<EDIT-FUNC>
204 MOVE D-LAST LOCAL|5
205 MOVE D-RETURN LOCAL|5
)
(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [469] {#<DTP-FEF-POINTER <OBF:|(USER:EDITFUNC USER:EDITABLE-THING)|> 26632262>}
  (SYSTEM:FASL-OP-INDEX [389] {<OBF:|(USER:EDITFUNC USER:EDITABLE-THING)|>}))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [160] {<OBJ:DEFOBFUN-INSTALL>})
    (SYSTEM:FASL-OP-INDEX [107] {<EDITABLE-THING>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [300] {<EDITFUNC>})
     => (<GLOBAL:QUOTE> <EDITFUNC>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <SHADOWED-EDITFUNC>)
     => (<GLOBAL:QUOTE> <SHADOWED-EDITFUNC>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [115] {<FUNCTION>})
      (SYSTEM:FASL-OP-INDEX [389] {<OBF:|(USER:EDITFUNC USER:EDITABLE-THING)|>})
     => (<FUNCTION> <OBF:|(USER:EDITFUNC USER:EDITABLE-THING)|>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [125] {<EDITLIST>})
       => (<EDITLIST>))
     => (<GLOBAL:QUOTE> (<EDITLIST>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [407] {<LISP:REMOVE>})
       => (<LISP:REMOVE>))
     => (<GLOBAL:QUOTE> (<LISP:REMOVE>)))
   => (<OBJ:DEFOBFUN-INSTALL> <EDITABLE-THING> (<GLOBAL:QUOTE> <EDITFUNC>) (<GLOBAL:QUOTE> <SHADOWED-EDITFUNC>) (<FUNCTION> <OBF:|(USER:EDITFUNC USER:EDITABLE-THING)|>) (<GLOBAL:QUOTE> (<EDITLIST>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> (<LISP:REMOVE>))))
  (EVAL '(<OBJ:DEFOBFUN-INSTALL> <EDITABLE-THING> (<GLOBAL:QUOTE> <EDITFUNC>) (<GLOBAL:QUOTE> <SHADOWED-EDITFUNC>) (<FUNCTION> <OBF:|(USER:EDITFUNC USER:EDITABLE-THING)|>) (<GLOBAL:QUOTE> (<EDITLIST>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> (<LISP:REMOVE>)))))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [4] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [141] {<RECORD-SOURCE-FILE-NAME>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [238] {<EDIT>})
     => (<GLOBAL:QUOTE> <EDIT>))
    (SYSTEM:FASL-OP-INDEX [145] {(<GLOBAL:QUOTE> <DEFOBFUN>)})
    (SYSTEM:FASL-OP-INDEX [45] {<GLOBAL:T>})
   => (<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EDIT>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>))
  (EVAL '(<RECORD-SOURCE-FILE-NAME> (<GLOBAL:QUOTE> <EDIT>) (<GLOBAL:QUOTE> <DEFOBFUN>) <GLOBAL:T>)))
(SYSTEM:FASL-OP-FRAME
<OBF:|(USER:EDIT USER:EDITABLE-THING)|>
 20 CALL D-PDL FEF|6  ;<OBJ:GET-?SYM-FCN>
 21 CALL D-LAST FEF|7  ;<OBF:|Get-sym-val USER:EDIT-FUNC|>
 22 MOVE D-LAST FEF|8  ;'(SI::**EVAL** (QUOTE (<OBJ:GET-VAL-LINK> (<GLOBAL:QUOTE> <EDIT-FUNC>))))
 23 CALL0 D-RETURN PDL-POP
)
(SYSTEM:FASL-OP-STOREIN-FUNCTION-CELL [502] {#<DTP-FEF-POINTER <OBF:|(USER:EDIT USER:EDITABLE-THING)|> 26634655>}
  (SYSTEM:FASL-OP-INDEX [487] {<OBF:|(USER:EDIT USER:EDITABLE-THING)|>}))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [8] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-INDEX [160] {<OBJ:DEFOBFUN-INSTALL>})
    (SYSTEM:FASL-OP-INDEX [107] {<EDITABLE-THING>})
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [238] {<EDIT>})
     => (<GLOBAL:QUOTE> <EDIT>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-SYMBOL <SHADOWED-EDIT>)
     => (<GLOBAL:QUOTE> <SHADOWED-EDIT>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [115] {<FUNCTION>})
      (SYSTEM:FASL-OP-INDEX [487] {<OBF:|(USER:EDIT USER:EDITABLE-THING)|>})
     => (<FUNCTION> <OBF:|(USER:EDIT USER:EDITABLE-THING)|>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [1] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-INDEX [133] {<EDIT-FUNC>})
       => (<EDIT-FUNC>))
     => (<GLOBAL:QUOTE> (<EDIT-FUNC>)))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-INDEX [118] {<NIL>})
     => (<GLOBAL:QUOTE> <NIL>))
   => (<OBJ:DEFOBFUN-INSTALL> <EDITABLE-THING> (<GLOBAL:QUOTE> <EDIT>) (<GLOBAL:QUOTE> <SHADOWED-EDIT>) (<FUNCTION> <OBF:|(USER:EDIT USER:EDITABLE-THING)|>) (<GLOBAL:QUOTE> (<EDIT-FUNC>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>)))
  (EVAL '(<OBJ:DEFOBFUN-INSTALL> <EDITABLE-THING> (<GLOBAL:QUOTE> <EDIT>) (<GLOBAL:QUOTE> <SHADOWED-EDIT>) (<FUNCTION> <OBF:|(USER:EDIT USER:EDITABLE-THING)|>) (<GLOBAL:QUOTE> (<EDIT-FUNC>)) (<GLOBAL:QUOTE> <NIL>) (<GLOBAL:QUOTE> <NIL>))))
(SYSTEM:FASL-OP-EVAL1
  (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
    (SYSTEM:FASL-OP-PACKAGE-SYMBOL
      (SYSTEM:FASL-OP-INDEX [104] {"SI"})
      (SYSTEM:FASL-OP-STRING "FASL-RECORD-FILE-MACROS-EXPANDED")
      <SI:FASL-RECORD-FILE-MACROS-EXPANDED>)
    (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
      (SYSTEM:FASL-OP-INDEX [58] {<GLOBAL:QUOTE>})
      (SYSTEM:FASL-OP-LIST [6] Area=WORKING-STORAGE-AREA
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [451] {<INHIBIT-STYLE-WARNINGS>})
          (SYSTEM:FASL-OP-FIXED 6275219)
         => (<INHIBIT-STYLE-WARNINGS> 6275219))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [450] {<PSETQ>})
          (SYSTEM:FASL-OP-FIXED 4442521)
         => (<PSETQ> 4442521))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [358] {<SI:XR-BQ-LIST>})
          (SYSTEM:FASL-OP-FIXED 1181187)
         => (<SI:XR-BQ-LIST> 1181187))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [356] {<SI:XR-BQ-LIST*>})
          (SYSTEM:FASL-OP-FIXED 3025778)
         => (<SI:XR-BQ-LIST*> 3025778))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [304] {<WHEN>})
          (SYSTEM:FASL-OP-FIXED 1653175)
         => (<WHEN> 1653175))
        (SYSTEM:FASL-OP-LIST [2] Area=WORKING-STORAGE-AREA
          (SYSTEM:FASL-OP-INDEX [196] {<OBJ:DELAYED-EXPAND>})
          (SYSTEM:FASL-OP-FIXED 7591509)
         => (<OBJ:DELAYED-EXPAND> 7591509))
       => ((<INHIBIT-STYLE-WARNINGS> 6275219) (<PSETQ> 4442521) (<SI:XR-BQ-LIST> 1181187) (<SI:XR-BQ-LIST*> 3025778) (<WHEN> 1653175) (<OBJ:DELAYED-EXPAND> 7591509)))
     => (<GLOBAL:QUOTE> ((<INHIBIT-STYLE-WARNINGS> 6275219) (<PSETQ> 4442521) (<SI:XR-BQ-LIST> 1181187) (<SI:XR-BQ-LIST*> 3025778) (<WHEN> 1653175) (<OBJ:DELAYED-EXPAND> 7591509))))
   => (<SI:FASL-RECORD-FILE-MACROS-EXPANDED> (<GLOBAL:QUOTE> ((<INHIBIT-STYLE-WARNINGS> 6275219) (<PSETQ> 4442521) (<SI:XR-BQ-LIST> 1181187) (<SI:XR-BQ-LIST*> 3025778) (<WHEN> 1653175) (<OBJ:DELAYED-EXPAND> 7591509)))))
  (EVAL '(<SI:FASL-RECORD-FILE-MACROS-EXPANDED> (<GLOBAL:QUOTE> ((<INHIBIT-STYLE-WARNINGS> 6275219) (<PSETQ> 4442521) (<SI:XR-BQ-LIST> 1181187) (<SI:XR-BQ-LIST*> 3025778) (<WHEN> 1653175) (<OBJ:DELAYED-EXPAND> 7591509))))))
(SYSTEM:FASL-OP-END-OF-WHACK)
(SYSTEM:FASL-OP-END-OF-FILE)