package bug in lucid-low in the newest release

[Dan Carnese <Carnese@spar-20.spar.slb.com>]

The section:
    
    #-LCL3.0
    (progn
    
    (in-package 'lucid)

    (eval-when (compile load eval)
    
    (let* ((logand&-fdesc (get-fdesc 'logand&))
	   (%logand&-fdesc (copy-structure logand&-fdesc)))
      (setf (structure-ref %logand&-fdesc 0 t) '%logand&)
      (setf (structure-ref %logand&-fdesc 3 t) '(2 2))
      (setf (structure-ref %logand&-fdesc 7 t) '(nil nil))
      (setf (structure-ref %logand&-fdesc 8 t) nil)
      (set-fdesc '%logand& %logand&-fdesc))
    
    )
    
    (defun %logand& (x y)
      (%logand& x y))
    
    (eval-when (eval) (compile '%logand&))
    
    (in-package 'pcl)

    )

should be replaced with:

    #-LCL3.0 (in-package 'lucid)
    
    #-LCL3.0
    (progn
    
    (eval-when (compile load eval)
    
    (let* ((logand&-fdesc (get-fdesc 'logand&))
	   (%logand&-fdesc (copy-structure logand&-fdesc)))
      (setf (structure-ref %logand&-fdesc 0 t) '%logand&)
      (setf (structure-ref %logand&-fdesc 3 t) '(2 2))
      (setf (structure-ref %logand&-fdesc 7 t) '(nil nil))
      (setf (structure-ref %logand&-fdesc 8 t) nil)
      (set-fdesc '%logand& %logand&-fdesc))
    
    )
    
    (defun %logand& (x y)
      (%logand& x y))
    
    (eval-when (eval) (compile '%logand&))
    
    )
    
    #-LCL3.0 (in-package 'pcl)