lispdoc - results for fill

(defun inst (parent)
  (let ((obj (copy-seq parent)))
    (setf (parents obj) parent
          (preclist obj) nil)
    (fill obj :nil :start 3)
    obj))

(defun rl-clean-tables ()
  "Cleans all rule-tables."
  (clrhash *rule-code*)
  (clrhash *rule-defs*)
  (setf (fill-pointer *rules*) 0))

(defun maybe-set-fill-pointer (array new-length)
  "If this is an array with a fill pointer, set it to
  new-length, if that is longer than the current length."
  (if (and (arrayp array)
           (array-has-fill-pointer-p array))
      (setf (fill-pointer array)
              (max (fill-pointer array)
                   new-length))))