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