PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) SYMBOLP D-IGNORE
BR-NOT-NIL 43
MOVE D-IGNORE ARG|0       ;SYMBOL-OR-PLIST
BR-NOT-ATOM 43
PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) %DATA-TYPE D-PDL
EQ FEF|8                  ;'13
BR-NIL 77
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 54
PUSH LOCAL|0              ;PLLOC
PUSH ARG|2                ;VALUE
(MISC) SETCAR D-IGNORE
BR 75
PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) SYMBOLP D-IGNORE
BR-NIL 60
PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) PROPERTY-CELL-LOCATION D-PDL
BR 61
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                   ;'43
BR-NIL 72
PUSH-NUMBER 40
BR 73
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|10                 ;'23
BR-NOT-NIL 84
PUSH ARG|0                ;SYMBOL-OR-PLIST
(MISC) NAMED-STRUCTURE-P D-IGNORE
BR-NIL 89
CALL D-IGNORE ARG|0       ;SYMBOL-OR-PLIST
PUSH FEF|11               ;':PUTPROP
PUSH ARG|2                ;VALUE
MOVE D-LAST ARG|1         ;PROPERTY
MOVE D-RETURN ARG|2       ;VALUE
CALL D-IGNORE FEF|12      ;#'SI::NO-CASE-ERROR
PUSH 'NIL
PUSH FEF|13               ;'ETYPECASE
PUSH FEF|14               ;'SI::SYMBOL-OR-PLIST
PUSH ARG|0                ;SYMBOL-OR-PLIST
MOVE D-LAST FEF|15        ;'(OR (OR SYMBOL CONS LOCATIVE) (OR INSTANCE NAMED-STRUCTURE))
MOVE D-RETURN ARG|2       ;VALUE