anchor.diff:    (declare (ignore type))
     (alien-type 'pointer))
   
  +(define-type-method argument-type ((type gslist))
  +  'list)
  +
  +(define-type-method return-type ((type gslist))
  +  'list)
  +
   (define-type-method size-of ((type gslist) &key inlined)
     (assert-not-inlined type inlined)
     (size-of 'pointer))
  
positive.code:   (declare (ignore type))
    (alien-type 'pointer))
  
  (define-type-method size-of ((type glist) &key inlined)
    (assert-not-inlined type inlined)
    (size-of 'pointer))
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: glib.lisp,v 1.41 2007-09-07 07:33:51 espen Exp $
  
  
  (in-package "GLIB")
  