#!+sb-simd-pack "%SIMD-PACK-UB32S"
#!+sb-simd-pack "%SIMD-PACK-UB64S"
#!+sb-simd-pack "%SIMD-PACK-DOUBLES"
#!+sb-simd-pack "%SIMD-PACK-UB32S"
#!+sb-simd-pack "%SIMD-PACK-UB64S"
#!+sb-simd-pack "%SIMD-PACK-DOUBLES"
:doc
"private: miscellaneous unsupported extensions to the ANSI spec. Much of
the stuff in here originated in CMU CL's EXTENSIONS package and is retained,
:doc
"private: miscellaneous unsupported extensions to the ANSI spec. Much of
the stuff in here originated in CMU CL's EXTENSIONS package and is retained,
"TYPE-SINGLE-VALUE-P" "TYPE-SPECIFIER" "TYPE-UNION"
"TYPE/=" "TYPE=" "TYPES-EQUAL-OR-INTERSECT"
"UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
"TYPE-SINGLE-VALUE-P" "TYPE-SPECIFIER" "TYPE-UNION"
"TYPE/=" "TYPE=" "TYPES-EQUAL-OR-INTERSECT"
"UNBOUND-SYMBOL-ERROR" "UNBOXED-ARRAY"
"UNION-TYPE-TYPES" "UNKNOWN-ERROR"
"UNKNOWN-KEY-ARG-ERROR" "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
"UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
"UNION-TYPE-TYPES" "UNKNOWN-ERROR"
"UNKNOWN-KEY-ARG-ERROR" "UNKNOWN-TYPE" "UNKNOWN-TYPE-P"
"UNKNOWN-TYPE-SPECIFIER" "UNSEEN-THROW-TAG-ERROR"
- "*CONDITION-RESTARTS*" "CASE-FAILURE"
- "NAMESTRING-PARSE-ERROR" "NAMESTRING-PARSE-ERROR-OFFSET"
- "MAKE-RESTART" "COERCE-TO-CONDITION"
+
+ "CASE-FAILURE" "NAMESTRING-PARSE-ERROR"
+ "NAMESTRING-PARSE-ERROR-OFFSET"
+ "MAKE-RESTART" "RESTART-ASSOCIATED-CONDITIONS"
+ "COERCE-TO-CONDITION"
"CONDITION-SLOT-INITARGS"
"CONDITION-SLOT-INITFORM"
"CONDITION-SLOT-INITFORM-P"
"CONDITION-SLOT-INITARGS"
"CONDITION-SLOT-INITFORM"
"CONDITION-SLOT-INITFORM-P"
"STRING<*" "STRING/=*" "%SVSET"
"%SP-STRING-COMPARE" "%SETNTH" "%SETELT"
"%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"
"STRING<*" "STRING/=*" "%SVSET"
"%SP-STRING-COMPARE" "%SETNTH" "%SETELT"
"%SET-ROW-MAJOR-AREF" "%SET-FILL-POINTER"