34 PUSH ARG|0                ;SYMBOL-OR-PLIST
 35 (MISC) SYMBOLP D-IGNORE
 36 BR-NOT-NIL 43
 37 MOVE D-IGNORE ARG|0       ;SYMBOL-OR-PLIST
 38 BR-NOT-ATOM 43
 39 PUSH ARG|0                ;SYMBOL-OR-PLIST
 40 (MISC) %DATA-TYPE D-PDL
 41 EQ FEF|8                  ;'13
 42 BR-NIL 77
 43 PUSH 'T
 44 BIND-POP FEF|6            ;INHIBIT-SCHEDULING-FLAG
 45 PUSH ARG|0                ;SYMBOL-OR-PLIST
 46 PUSH ARG|1                ;PROPERTY
 47 (MISC) GET-LOCATION-OR-NIL D-PDL
 48 POP LOCAL|0               ;PLLOC
 49 BR-NIL 54
 50 PUSH LOCAL|0              ;PLLOC
 51 PUSH ARG|2                ;VALUE
 52 (MISC) SETCAR D-IGNORE
 53 BR 75
 54 PUSH ARG|0                ;SYMBOL-OR-PLIST
 55 (MISC) SYMBOLP D-IGNORE
 56 BR-NIL 60
 57 PUSH ARG|0                ;SYMBOL-OR-PLIST
 58 (MISC) PROPERTY-CELL-LOCATION D-PDL
 59 BR 61
 60 PUSH ARG|0                ;SYMBOL-OR-PLIST
 61 MOVEM LOCAL|0             ;PLLOC
 62 PUSH ARG|1                ;PROPERTY
 63 PUSH ARG|2                ;VALUE
 64 CDR D-PDL LOCAL|0         ;PLLOC
 65 PUSH-NUMBER 3
 66 PUSH ARG|0                ;SYMBOL-OR-PLIST
 67 (MISC) %AREA-NUMBER D-PDL
 68 = FEF|9                   ;'43
 69 BR-NIL 72
 70 PUSH-NUMBER 40
 71 BR 73
 72 PUSH FEF|7                ;SYSTEM:BACKGROUND-CONS-AREA
 73 (MISC) %INTERNAL-LIST*-IN-AREA D-PDL
 74 (MISC) RPLACD D-IGNORE
 75 (MISC) UNBIND 1 binding 
 76 MOVE D-RETURN ARG|2       ;VALUE
 77 PUSH ARG|0                ;SYMBOL-OR-PLIST
 78 (MISC) %DATA-TYPE D-PDL
 79 EQ FEF|10                 ;'23
 80 BR-NOT-NIL 84
 81 PUSH ARG|0                ;SYMBOL-OR-PLIST
 82 (MISC) NAMED-STRUCTURE-P D-IGNORE
 83 BR-NIL 89
 84 CALL D-IGNORE ARG|0       ;SYMBOL-OR-PLIST
 85 PUSH FEF|11               ;':PUTPROP
 86 PUSH ARG|2                ;VALUE
 87 MOVE D-LAST ARG|1         ;PROPERTY
 88 MOVE D-RETURN ARG|2       ;VALUE
 89 CALL D-IGNORE FEF|12      ;#'SI::NO-CASE-ERROR
 90 PUSH 'NIL
 91 PUSH FEF|13               ;'ETYPECASE
 92 PUSH FEF|14               ;'SI::SYMBOL-OR-PLIST
 93 PUSH ARG|0                ;SYMBOL-OR-PLIST
 94 MOVE D-LAST FEF|15        ;'(OR (OR SYMBOL CONS LOCATIVE) (OR INSTANCE NAMED-STRUCTURE))
 95 MOVE D-RETURN ARG|2       ;VALUE