diff --git a/code/c-call.lisp b/code/c-call.lisp
index 10bc6a6edd9d4007d0b58da6ff478681cda1975b..3943a265484fe3c5124240fe08efb907eca0f58d 100644
--- a/code/c-call.lisp
+++ b/code/c-call.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/c-call.lisp,v 1.4 1991/02/08 13:31:16 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/c-call.lisp,v 1.5 1991/02/13 21:41:58 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -47,7 +47,7 @@
   (size nil :type (or unsigned-byte null))
   ;;
   ;; The bit alignment used for allocating objects of this type.
-  (alignment nil :type (integer 1 32)))
+  (alignment (required-argument) :type (integer 1 32)))
 
 (defun %print-c-type (s stream d)
   (declare (ignore d))
@@ -84,13 +84,13 @@
   (name nil :type symbol)
   ;;
   ;; The c-type of this field.
-  (type nil :type c-type)
+  (type (required-argument) :type c-type)
   ;;
   ;; The bit offset from the start of the record that this field is located at.
-  (offset nil :type unsigned-byte)
+  (offset (required-argument) :type unsigned-byte)
   ;;
   ;; The number of bits in this field.
-  (size nil :type unsigned-byte))
+  (size (required-argument) :type unsigned-byte))
 
 
 ;;; The Array-Type represents a C array type.
@@ -100,11 +100,11 @@
 	    (:print-function %print-c-type))
   ;;
   ;; The c-type of the elements in the array.
-  (element-type nil :type c-type)
+  (element-type (required-argument) :type c-type)
   ;;
   ;; The number of bits used to store each element.  May be larger than the
   ;; Size in the Element-Type due to padding.
-  (element-size nil :type unsigned-byte))
+  (element-size (required-argument) :type unsigned-byte))
 
 
 ;;; The Pointer-Type represents a C pointer type.
@@ -114,7 +114,7 @@
 	    (:print-function %print-c-type))
   ;;
   ;; The type of object pointed to.
-  (to nil :type c-type))
+  (to (required-argument) :type c-type))
 
 
 ;;; An EQ hashtable from the names of c-types to the structures describing them.
@@ -426,22 +426,22 @@
   ;;
   ;; String name of the routine and symbol name of the interface function.
   (name "" :type string)
-  (function-name nil :type symbol)
+  (function-name (required-argument) :type symbol)
   ;;
   ;; List of all the doc strings.
   docs
   ;;
   ;; List of Arg-Info structures describing the args.
-  (args nil :type list)
+  (args (required-argument) :type list)
   )
 
 (defstruct arg-info
   ;;
   ;; Symbol name of the arg.
-  (name nil :type symbol)
+  (name (required-argument) :type symbol)
   ;;
   ;; C-Type describing the actual argument to the routine.
-  (type nil :type c-type)
+  (type (required-argument) :type c-type)
   ;;
   ;; Specified mode and options.
   mode