anchor.diff:  		      setf type variable))
   	(when (documentation sym type)
   	  (if (member type '(compiler-macro function method-combination setf))
  -	      (format t "~&~A > ~A~% ~<~A~%~%~>"
  -		      (cons sym (arglist sym)) type
  +	      (format t "~&(~:@(~A~) ~{~A~}) > ~A~% ~<~A~%~%~>"
  +		       sym (arglist sym) type
   		      (documentation sym type))
   	      (format t "~&~A > ~A~% ~<~A~%~%~>" sym type (documentation sym type))))))))
   
  
positive.code: 	  (in-package ,package)
  	  (do-external-symbols (sym (find-package 'repl-utilities))
  	    (if (find-symbol (symbol-name sym))
  		(import sym)
  		(format t "~&Left behind ~A to avoid conflict.~%" sym)))))
  
  (defmacro bring (package)
    "Load the package. Import the package's exported symbols that don't conflict.
  
negative.code: 	    (format t "~a:::  ~s~%~%" arg (documentation func arg))))))
  
  (defun trace-package (&optional (package *package*) (inheritedp nil))
    "Trace all of the symbols in *package*. Don't trace :cl or :cl-user"
    (let ((pac (find-package package)))
      (loop for sym being the symbols in pac when 
  	  (if inheritedp
  