title: not able to find package when running from SLIME, but from command line is ok
body: <p>I'm running the <a href="https://github.com/3b/cl-opengl/blob/master/examples/misc/glut-teapot.lisp" rel="nofollow">teapot example from cl-opengl package</a>. The only changes I've made are loading the required packages. It works fine when executed from unix shell (<code>sbcl --load "3.cl"</code>), but when I try to compile and load it through SLIME (<code>C-c C-k</code>) i get the error about package <code>GLUT</code> not found. </p>
  
  <p>Curiously, the compiler chokes on the <code>(defclass glut-teapot-window (glut:window)</code>.
  What gives???</p>
  
  <p><a href="http://i46.tinypic.com/i519vr.png" rel="nofollow">Here's a screenshot of what happens</a></p>
  
  <p>Here's the code for 3.cl.</p>
  
  <pre><code>;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
  ;;; glut-teapot.lisp --- Simple usage of glut:solid-teapot.
  
      (ql:quickload :cl-opengl)
  
      (ql:quickload :cl-glu)
    (ql:quickload :cl-glut)
  
  ;(setf *communication-style* :fd-handler)
  
  (defclass glut-teapot-window (glut:window)
    ()
    (:default-initargs :width 250 :height 250 :title "glut-teapot.lisp"
                       :mode '(:single :rgb :depth)))
  
  (defmethod glut:display-window :before ((w glut-teapot-window))
    (gl:clear-color 0 0 0 0)
    (gl:cull-face :back)
    (gl:depth-func :less)
    (gl:disable :dither)
    (gl:shade-model :smooth)
    (gl:light-model :light-model-local-viewer 1)
    (gl:color-material :front :ambient-and-diffuse)
    (gl:enable :light0 :light1 :lighting :cull-face :depth-test))
  
  (defmethod glut:display ((window glut-teapot-window))
    (gl:load-identity)
    (gl:translate 0 0 -5)
    (gl:rotate 30 1 1 0)
    (gl:light :light0 :position '(100 1000 1 0))
    (gl:light :light0 :diffuse '(1.2 0.4 0.6 0))
    (gl:light :light1 :position '(-100 1000 1 0))
    (gl:clear :color-buffer :depth-buffer)
    (gl:color 1 10 1)
    (gl:front-face :cw)
    (glut:solid-teapot 1.3)
  ;(glut:solid-torus 0.5 1.0 50 50)
  ;(glu:cylinder (glu:new-quadric) 0.5 0.5 0.5 20 20)
    (gl:front-face :ccw)
    (gl:flush))
  
  (defmethod glut:reshape ((window glut-teapot-window) width height)
    (gl:viewport 0 0 width height)
    (gl:matrix-mode :projection)
    (gl:load-identity)
    (glu:perspective 50 (/ width height) 0.5 20)
    (gl:matrix-mode :modelview)
    (gl:load-identity))
  
  (defmethod glut:keyboard ((window glut-teapot-window) key x y)
    (declare (ignore x y))
    (when (eql key #\Esc)
      (glut:destroy-current-window)))
  
  (defun glut-teapot ()
    (glut:display-window (make-instance 'glut-teapot-window)))
  
  (glut-teapot)
  </code></pre>