diff --git a/code/exports.lisp b/code/exports.lisp
index 1627c7c01d1110475b8716403048987e1f396199..05d7d20698880bdef24cc90658e57594f253baaa 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.86 1993/02/26 08:25:13 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.87 1993/03/01 23:28:06 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1280,8 +1280,9 @@
 		"%BITSET" "%CHARSET" "%PUT" "%RPLACA" "%RPLACD" "%SBITSET"
 		"%SCHARSET" "%SET-DOCUMENTATION" "%SET-FDEFINITION"
 		"%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF"
-		"%SET-SAP-REF-DESCRIPTOR" "%SETELT" "%SETNTH" "%SP-STRING-COMPARE"
-		"%SVSET" "%TYPEP" "LONG-FLOAT-P" "NIL" "RETURN" "SET"
+		"%SET-SAP-REF-DESCRIPTOR" "%SETELT" "%SETNTH"
+		"%SP-STRING-COMPARE"
+		"%SVSET" "%TYPEP" "LONG-FLOAT-P"
 		"SHORT-FLOAT-P" "STRING/=*" "STRING<*" "STRING<=*" "STRING=*"
 		"STRING>*" "STRING>=*")
   (:export "%ALIEN-FUNCALL" "%CATCH-BREAKUP" "%CONTINUE-UNWIND"
@@ -1341,7 +1342,7 @@
 	   "MULTIPLE-CALL-LOCAL" "MULTIPLE-CALL-NAMED"
 	   "MULTIPLE-CALL-VARIABLE" "NIL" "NLX-ENTRY" "NLX-ENTRY-MULTIPLE"
 	   "NON-DESCRIPTOR-STACK" "NOTE-ENVIRONMENT-START"
-	   "NOTE-THIS-LOCATION" "ODD-KEYWORD-ARGUMENTS-ERROR" "OPTIMIZER"
+	   "NOTE-THIS-LOCATION" "OPTIMIZER"
 	   "PACK-TRACE-TABLE" "PMAX-FASL-FILE-IMPLEMENTATION" "POLICY"
 	   "PREDICATE" "PRIMITIVE-TYPE" "PRIMITIVE-TYPE-OF"
 	   "PRIMITIVE-TYPE-OR-LOSE" "PRIMITIVE-TYPE-VOP" "PUSH-VALUES"
@@ -1362,7 +1363,7 @@
 	   "TN-REF-NEXT" "TN-REF-NEXT-REF" "TN-REF-P" "TN-REF-TARGET"
 	   "TN-REF-TN" "TN-REF-VOP" "TN-REF-WRITE-P" "TN-SC" "TN-VALUE"
 	   "TRACE-TABLE-ENTRY" "TYPE-CHECK-ERROR" "UNBIND" "UNBIND-TO-HERE"
-	   "UNKNOWN-KEYWORD-ARGUMENT-ERROR" "UNSAFE" "UNWIND" "UWP-ENTRY"
+	   "UNSAFE" "UNWIND" "UWP-ENTRY"
 	   "VALUE-CELL-REF" "VALUE-CELL-SET" "VALUES-LIST"
 	   "VERIFY-ARGUMENT-COUNT" "WRITE-PACKED-BIT-VECTOR"
 	   "WRITE-VAR-INTEGER" "WRITE-VAR-STRING" "XEP-ALLOCATE-FRAME"
@@ -1824,7 +1825,15 @@
 	   "STRUCTURE-CLASS-MAKE-LOAD-FORM-FUN"
 	   "%DENOMINATOR"))
 
+(dolist
+    (name
+     '("BRANCH" "FLUSHABLE" "SSET-ELEMENT" "SSET" "MAKE-SSET"
+       "DO-ELEMENTS" "SSET-ADJOIN" "SSET-DELETE" "SSET-EMPTY"))
+  (intern name "C"))
+
 (defpackage "NEW-ASSEM"
+  (:import-from "C" "BRANCH" "FLUSHABLE" "SSET-ELEMENT" "SSET" "MAKE-SSET"
+		"DO-ELEMENTS" "SSET-ADJOIN" "SSET-DELETE" "SSET-EMPTY")
   (:export "EMIT-BYTE" "EMIT-SKIP" "EMIT-BACK-PATCH" "EMIT-CHOOSER"
 	   "DEFINE-EMITTER" "DEFINE-INSTRUCTION" "DEFINE-INSTRUCTION-MACRO"
 	   "DEF-ASSEMBLER-PARAMS" "EMIT-POSTIT"