Changeset 10280


Ignore:
Timestamp:
10/30/05 01:19:38 (16 years ago)
Author:
piso
Message:

COMPILER-SUBTYPEP, FUNCTION-RESULT-TYPE

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/compiler-types.lisp

    r9865 r10280  
    22;;;
    33;;; Copyright (C) 2005 Peter Graves
    4 ;;; $Id: compiler-types.lisp,v 1.9 2005-08-14 23:21:57 piso Exp $
     4;;; $Id: compiler-types.lisp,v 1.10 2005-10-30 01:19:38 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    122122  (cond ((eq typespec t)
    123123         t)
     124        ((eq compiler-type typespec)
     125         t)
    124126        ((eq typespec 'STRING)
    125127         (memq compiler-type '(STRING SIMPLE-STRING)))
     
    130132
    131133(defun function-result-type (name)
    132   (if (symbolp name)
    133       (get name 'function-result-type)
    134       (gethash-2op-1ret name (the hash-table *function-result-types*))))
     134  (gethash-2op-1ret name (the hash-table *function-result-types*)))
    135135
    136136(defun set-function-result-type (name result-type)
Note: See TracChangeset for help on using the changeset viewer.