Lispworks fix from mdbergmann

Fix compile error on LispWorks.

Author: snunez1

src/data-frame.lisp

@@ -563,11 +563,13 @@ After defining this method it is permanently associated with data-frame objects"
 ;;; This violates the spec.  It's not easy at all to get good
 ;;; behaviour from describe.  See code and comments in describe.lisp.
 #+allegro (setf excl:*enable-package-locked-errors* nil)
+#+lispworks (setf lw:*handle-warn-on-redefinition* :warn)
 (defmethod describe-object :after ((s symbol) stream)
   (unless (boundp s) (return-from describe-object))
   (unless (eq #+sbcl (SB-CLTL2:variable-information s)
 	      #+ccl  (ccl:variable-information s)
 	      #+allegro (system:variable-information s)
+          #+lispworks (hcl:variable-information s)
 	      :symbol-macro)
     (let ((*print-pretty* t)
 	  (df (symbol-value s))