PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) SYMBOLP D-IGNORE
BR-NOT-NIL 45
MOVE D-IGNORE ARG|0       ;SYMBOL-OR-PLIST
BR-NOT-ATOM 45
PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) %DATA-TYPE D-PDL
EQ FEF|10                 ;'13
BR-NIL 79
PUSH 'T
BIND-POP FEF|6            ;INHIBIT-SCHEDULING-FLAG
PUSH ARG|0                ;SYMBOL-OR-PLIST
PUSH ARG|1                ;PROPERTY
(MISC) GET-LOCATION-OR-NIL D-PDL
POP LOCAL|0               ;PLLOC
BR-NIL 56
PUSH LOCAL|0              ;PLLOC
PUSH ARG|2                ;VALUE
(MISC) SETCAR D-IGNORE
BR 77
PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) SYMBOLP D-IGNORE
BR-NIL 62
PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) PROPERTY-CELL-LOCATION D-PDL
BR 63
PUSH ARG|0                ;SYMBOL-OR-PLIST
MOVEM LOCAL|0             ;PLLOC
PUSH ARG|1                ;PROPERTY
PUSH ARG|2                ;VALUE
CDR D-PDL LOCAL|0         ;PLLOC
PUSH-NUMBER 3
PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) %AREA-NUMBER D-PDL
= FEF|9                   ;SYSTEM:NR-SYM
BR-NIL 74
PUSH FEF|8                ;SYSTEM:PROPERTY-LIST-AREA
BR 75
PUSH FEF|7                ;SYSTEM:BACKGROUND-CONS-AREA
(MISC) %INTERNAL-LIST*-IN-AREA D-PDL
(MISC) RPLACD D-IGNORE
(MISC) UNBIND 1 binding 
MOVE D-RETURN ARG|2       ;VALUE
PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) %DATA-TYPE D-PDL
EQ FEF|11                 ;'23
BR-NOT-NIL 86
PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) NAMED-STRUCTURE-P D-IGNORE
BR-NIL 91
CALL D-IGNORE ARG|0       ;SYMBOL-OR-PLIST
PUSH FEF|12               ;':PUTPROP
PUSH ARG|2                ;VALUE
MOVE D-LAST ARG|1         ;PROPERTY
MOVE D-RETURN ARG|2       ;VALUE
CALL D-IGNORE FEF|13      ;#'SI::NO-CASE-ERROR
PUSH 'NIL
PUSH FEF|14               ;'ETYPECASE
PUSH FEF|15               ;'SI::SYMBOL-OR-PLIST
PUSH ARG|0                ;SYMBOL-OR-PLIST
MOVE D-LAST FEF|16        ;'(OR (OR SYMBOL CONS LOCATIVE) (OR INSTANCE NAMED-STRUCTURE))
MOVE D-RETURN ARG|2       ;VALUE