1.0.19.16: derive the type of (AREF (THE STRING X) Y) as CHARACTER
[sbcl.git] / src / runtime / hppa-arch.h
1 #ifndef _HPPA_ARCH_H
2 #define _HPPA_ARCH_H
3
4
5 static inline void
6 get_spinlock(lispobj *word,long value)
7 {
8     *word=value;                /* FIXME for threads */
9 }
10
11 static inline void
12 release_spinlock(lispobj *word)
13 {
14     *word=0;
15 }
16
17 #define ARCH_HAS_NPC_REGISTER
18
19 #endif /* _HPPA_ARCH_H */