@SubL(source = "cycl/operation-queues.lisp", position = 9125)
public static final SubLObject local_operation_storage_queue_enqueue(SubLObject operation) {
{
final SubLThread thread = SubLProcess.currentSubLThread();
{
SubLObject lock = $local_operation_storage_queue_lock$.getDynamicValue(thread);
SubLObject release = NIL;
try {
release = Locks.seize_lock(lock);
queues.enqueue(operation, $local_operation_storage_queue$.getGlobalValue());
} finally {
if ((NIL != release)) {
Locks.release_lock(lock);
}
}
}
return NIL;
}
}
@SubL(source = "cycl/operation-queues.lisp", position = 5157)
public static final SubLObject transcript_queue_dequeue() {
{
final SubLThread thread = SubLProcess.currentSubLThread();
{
SubLObject ans = NIL;
SubLObject lock = $transcript_queue_lock$.getDynamicValue(thread);
SubLObject release = NIL;
try {
release = Locks.seize_lock(lock);
ans = queues.dequeue($transcript_queue$.getGlobalValue());
} finally {
if ((NIL != release)) {
Locks.release_lock(lock);
}
}
return ans;
}
}
}
public static final SubLObject init_operation_queues_file() {
$local_queue$ =
deflexical(
"*LOCAL-QUEUE*",
((NIL != Symbols.boundp($sym0$_LOCAL_QUEUE_))
? ((SubLObject) $local_queue$.getGlobalValue())
: queues.create_queue()));
$local_queue_lock$ =
defparameter("*LOCAL-QUEUE-LOCK*", Locks.make_lock($str1$Local_Queue_Lock));
$remote_queue$ =
deflexical(
"*REMOTE-QUEUE*",
((NIL != Symbols.boundp($sym3$_REMOTE_QUEUE_))
? ((SubLObject) $remote_queue$.getGlobalValue())
: queues.create_queue()));
$remote_queue_lock$ =
defparameter("*REMOTE-QUEUE-LOCK*", Locks.make_lock($str4$Remote_Queue_Lock));
$transcript_queue$ =
deflexical(
"*TRANSCRIPT-QUEUE*",
((NIL != Symbols.boundp($sym5$_TRANSCRIPT_QUEUE_))
? ((SubLObject) $transcript_queue$.getGlobalValue())
: queues.create_queue()));
$transcript_queue_lock$ =
defparameter("*TRANSCRIPT-QUEUE-LOCK*", Locks.make_lock($str6$Transcript_Queue_Lock));
$hl_transcript_queue$ =
deflexical(
"*HL-TRANSCRIPT-QUEUE*",
((NIL != Symbols.boundp($sym7$_HL_TRANSCRIPT_QUEUE_))
? ((SubLObject) $hl_transcript_queue$.getGlobalValue())
: queues.create_queue()));
$hl_transcript_queue_lock$ =
defparameter("*HL-TRANSCRIPT-QUEUE-LOCK*", Locks.make_lock($str8$HL_Transcript_Queue_Lock));
$auxiliary_queue$ =
deflexical(
"*AUXILIARY-QUEUE*",
((NIL != Symbols.boundp($sym9$_AUXILIARY_QUEUE_))
? ((SubLObject) $auxiliary_queue$.getGlobalValue())
: queues.create_queue()));
$auxiliary_queue_lock$ =
defparameter("*AUXILIARY-QUEUE-LOCK*", Locks.make_lock($str10$Auxiliary_Queue_Lock));
$transmit_queue$ =
deflexical(
"*TRANSMIT-QUEUE*",
((NIL != Symbols.boundp($sym11$_TRANSMIT_QUEUE_))
? ((SubLObject) $transmit_queue$.getGlobalValue())
: queues.create_queue()));
$transmit_queue_lock$ =
defparameter("*TRANSMIT-QUEUE-LOCK*", Locks.make_lock($str12$Transmit_Queue_Lock));
$local_operation_storage_queue$ =
deflexical(
"*LOCAL-OPERATION-STORAGE-QUEUE*",
((NIL != Symbols.boundp($sym13$_LOCAL_OPERATION_STORAGE_QUEUE_))
? ((SubLObject) $local_operation_storage_queue$.getGlobalValue())
: queues.create_queue()));
$local_operation_storage_queue_lock$ =
defparameter(
"*LOCAL-OPERATION-STORAGE-QUEUE-LOCK*",
Locks.make_lock($str14$Local_Operation_Queue_Lock));
$within_a_remote_opP$ = defparameter("*WITHIN-A-REMOTE-OP?*", NIL);
$hl_transcripts_enabledP$ = defparameter("*HL-TRANSCRIPTS-ENABLED?*", NIL);
$hl_transcript_special_operators$ = deflexical("*HL-TRANSCRIPT-SPECIAL-OPERATORS*", $list17);
return NIL;
}